Help for this page

Select Code to Download


  1. or download this
    my %line;
{
...
        $line{$.} = undef if /$X/;
    }
}
  2. or download this
    use Fcntl qw/:flock/;
{
...
    truncate $fhB, 0 or die $!; # set up to overwrite file
    print $fhB @file;
}
  3. or download this
    use Tie::File;
tie my @file, 'Tie::File', 'B' or die $!;
...
        $file[$. - 1] =~ s/$Y/$Z/ if /$X/;
    }
}