Help for this page

Select Code to Download


  1. or download this
    
if($line =~ /^(\S+)\s+(\S+)\s+(\S+)/) {
...
} else { print "Regex Error on $line\n" }
  2. or download this
    
if($line =~ /([^:]+):([^:]+):([^:]+)/) { 
...

} else { print "Regex Error on $line\n" }