Perl is a nice scripting language – no I will not call it a programming language! – you can do so many wonderful things with it. There are no restrictions. Just write some ?!$$'”&%/;$?” and it works. Sure it always works, but you never know what it really does. Like now. If you ever write a perl script you have to support it for the rest of your life. If you want to shoot yourself in the foot with perl, it has already happened.
I am getting an “illegal seek” – nice error. I am reading out a file simple code 5 lines, one loop. Nothing evil. And yet an error keeps coming up. It does not crash the programm but it crashes my error handling!
$matched=0;
eval{
open(file,$file);
while($line=<file>){
#check for match
if(!$matched){
$matched=($line=~/$linematch/);
}
#start printing file after match
else{
print STDOUT "$line";
}
}
close(file);
}
if($@){ die "Exception caused while reading $file"; }
What the heck is wrong with this code?