use warnings 'all';
use strict;
use autodie;
open my $input, '<', $ARGV[0];
while (my $sentence = <$input>) {
my $substring = '...pck.*?.c';
$sentence =~ s{$substring}{};
open my $out, '>', 'hex.txt';
print $out unpack 'H*', $sentence;
}
in your file you have something like file:123/pck/asd/cara.casddma , it will read the value from "1" to "ara.casddma" even tho I used ".c" not "c" , from your last explanation I know now that it will read 1 char before c but I must ask how can you tell it to read until ".c" not "c" and second I would like to replace the text in the file with blank not with a space. |