Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
$string = 'test';
...
    if ( $_ =~ $string ) { print $_; }
}
close(IN);
  2. or download this
    #!/usr/bin/perl
use strict;
...
    }
}
close( $in ); # see perlfunc
  3. or download this
    #!/usr/bin/perl
use strict;
...
# takes filenames on the command line or STDIN if none
    print ( ( split )[1] );
}