Help for this page

Select Code to Download


  1. or download this
    my @a_str = split //, $line;
  2. or download this
    elsif ($count == 1)
{
...
    {
        $count = 0;
        ...
  3. or download this
    open(my $INFILE, "<", $file)
    or die "can't open file '$file' for reading: $!";