Re^5: Substitution don't work with a special inputfile


go ahead... be a heretic
	PerlMonks

Re^5: Substitution don't work with a special inputfile

by poj (Abbot)

on Aug 24, 2015 at 18:09 UTC ( [id://1139720]=note: print w/replies, xml )

Need Help??

in reply to Re^4: Substitution don't work with a special inputfile
in thread Substitution don't work with a special inputfile

Your addition should have worked but anyway try this

#!perl
# Aufruf: perl removeEK1.pl TestEK.txt > Out.txt
use strict;
use warnings;
my $regex = '{\[%tqu[^\]]*]}';
my $line = do { local $/;  <>; }; 
$line =~ s/\n/ /g;
$line =~ s/$regex//gi;
$line =~ s/ (\d+\. |\[)/\n$1/g;
print $line;
[download]

poj

Comment on Re^5: Substitution don't work with a special inputfile Download Code

Replies are listed 'Best First'.

Re^6: Substitution don't work with a special inputfile
by OldChamp (Acolyte) on Aug 25, 2015 at 08:40 UTC

Thank you poj for helping me again, now it works like a charm. I have tried to solve the remaining problem by myself like this:

#!/usr/bin/perl 
# Remove extra text from a PGN or Text-file.
use strict;
use warnings;
my $regex = '{\[%tqu[^\]]*]}';
my $line = do { local $/;  <>; }; 
$line =~ s/\n/ /g;            
$line =~ s/$regex//gi;
# these statements I have inserted
$line =~ s/\]/\]\n/g; 
$line =~ s/\[E/\n\[E/g; 
#  end
$line =~ s/ (\d+\. )/\n$1/g;
print $line;
[download]

and it "nearly" worked, but I got an empty first line in the outputfile.

[reply]
[d/l]

In Section Seekers of Perl Wisdom