Programemos Cosas

Sinopsis use Tokens; open my $regex_fh, '<', $ARGV[0]; #regex.txt open my $target_fh, '<', $ARGV[1]; #file.txt my $target; {   local $/ = undef;   $target = <$target_fh>; #the content   $target =~ s/\n/ /g; } my $regex; {   local $/ = undef;   $regex = <$regex_fh>; #the content } printAll parse $target, $regex;   Códio (archivo: Tokens.pm): =pod  Copyright 2013 Gabriel Czernikier     This program is free software: you can redistribute it and/or modify     it under the terms of the GNU General Public License as published by     the Free Software Foundation, either version 3 of the License, or     (at your option) any later version.     This program is distributed in the hope that it will be useful,     but WITHOUT ANY WARRANTY; without even the implied warranty of     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  Se...