Help for this page

Select Code to Download


  1. or download this
     
#!/usr/bin/perl
open(FILE1, $ARGV[0]) || die "Error: $!\n";
...
    }
}
}
  2. or download this
    BEGIN_TAG
X1 test test test
...
X3 hi hi hi hi hi hi 
hi hi hi hi 
hi hi
  3. or download this
    #!/usr/bin/perl
use strict; 
...
print "X2: ".$savetoX2."\n" if ($savetoX2) ; 
print "X3: ".$savetoX3."\n" if ($savetoX3) ;
  4. or download this
    
The wrong one (the one I have) I get is: <br/>
<code> X3: yes yes yes BEGIN_TAG X1 test test test tes test test X2 no
+ no no no no  nono non no no  nononono no no  no X3 hi hi hi hi hi hi
+  hi hi hi hi  hi hi
  5. or download this
    X1: test test test
test test test tes test test
...
no no no no no nono non no no nononono no no  no
X3: yes yes yes
hi hi hi hi hi hi hi hi hi hi hi hi
  6. or download this
    BEGIN_TAG
X1 test test test
...
X3 hi hi hi hi hi hi 
hi hi hi hi 
hi hi