Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

# Program: printsth
print join (' ', @ARGV), $/ for (1..10);
  2. or download this
    
#!/usr/bin/perl -w
...
while (<PIPE>) {
        print;
}
  3. or download this
    [sk]% captpipe
Going to call another perl program and capture it's output
...
hi there
hi there
hi there