Help for this page

Select Code to Download


  1. or download this
     
while (my $line = <STDIN> ) {
   chomp $line;
   ...
}
  2. or download this
     C:>echo a = 1 |perl -e " print split /=/, <STDIN>"
a  1
  3. or download this
     C:>echo a = 1 |perl myScript.pl
  4. or download this
    while (my $line = <DATA> ) {

...
__DATA__
a=1 b=2 
c=3