Help for this page

Select Code to Download


  1. or download this
    
||/home/xx> cat test.pl
...
use strict; 
`perl -p -i -e 's/^(.{10})(.{382})(.*)$/$1^$2^$3/' test.txt`;
  2. or download this
    
||/home/xx> perl test.pl
...
Use of uninitialized value in concatenation (.) or string at test.pl l
+ine 3.
Substitution replacement not terminated at -e line 2.
  3. or download this
    
||/home/xx> perl -p -i -e 's/^(.{10})(.{382})(.*)$/$1^$2^$3/' test.txt
||/home/xx>