Help for this page

Select Code to Download


  1. or download this
    foreach my $temp_line(@store_files)
{
if(my $pattern =~ /^REVISION_LOCATION:/){
  2. or download this
    #!/usr/bin/perl
use strict;
...
Monks$ perl test.pl
Use of uninitialized value $pattern in pattern match (m//) at test.pl 
+line 11.
Use of uninitialized value $pattern in pattern match (m//) at test.pl 
+line 11.
  3. or download this
    #!/usr/bin/perl
use strict;
...
Monks$ perl test.pl
test.pl~
test.pl