会python真的可以为所欲为0(回)
359天前
这里还有人吗1(回)
544天前这里还有人吗0(回)
544天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
769天前到处都是羊，不想上班0(回)
849天前
鸽子
0(回)
853天前#----------------------------- |
head ( 100 ); |
while ( <> ) |
{ |
print; |
} |
sub head |
{ |
my $lines = shift || 20; |
return if $pid = open ( STDOUT, "|-" ); |
die "cannot fork: $!" unless defined $pid; |
while ( <STDIN> ) |
{ |
print; |
last unless --$lines ; |
} |
exit; |
} |
#----------------------------- |
1: |
> Welcome to Linux, version 2.0.33 on a i686 |
2: |
> |
3: |
> "The software required `Windows 95 or better', |
4: > so I installed Linux." |
#----------------------------- |
> 1: |
Welcome to Linux, Kernel version 2.0.33 on a i686 |
> 2: |
> 3: "The software required `Windows 95 or better', |
> 4: so I installed Linux." |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl |
# qnumcat - demo additive output filters |
number(); |
# push number filter on STDOUT |
quote(); |
# push quote filter on STDOUT |
while ( <> ) |
{ |
# act like /bin/cat |
print; |
} |
close STDOUT; |
# tell kids we're done--politely |
exit; |
sub number { |
my $pid; |
return if $pid = open(STDOUT, "|-"); |
die "cannot fork: $!" unless defined $pid; |
while (<STDIN>) { printf "%d: %s", $., $_ } |
exit; |
} |
sub quote { |
my $pid; |
return if $pid = open(STDOUT, "|-"); |
die "cannot fork: $!" unless defined $pid; |
while (<STDIN>) { print "> $_" } |
exit; |
} |
#----------------------------- |
