Help for this page

Select Code to Download


  1. or download this
    open(IN, "/some/file") || die "Cant open /some/file: $!\n";
while (<IN>) {
...
open(IN, "/some/file") || die "Cant access /some/file: $!\n";
@foo = grep(m/^$match/, <IN>);
close(IN);
  2. or download this
    $f = 'foo:bar:baz';
($blah) = split(/:/, $f);