Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
removing the last character
- Thread starter 99mel
- Start date
Try something like this:
my $infile = 'infile.txt';
my $outfile = 'outfile.txt';
[tt]
open (INFILE, $infile) or die "Couldn't open $infile : $!\n";
open (OUTFILE, ">$outfile"
or die "Couldn't open $outfile : $!\n";
while (<INFILE>) {
#remove any newline charachters
chomp;
#remove the last charachter
chop;
print OUTFILE $_;
}
close (INFILE);
close (OUTFILE);
[/tt]
Will.
fortytwo
will@hellacool.co.uk
my $infile = 'infile.txt';
my $outfile = 'outfile.txt';
[tt]
open (INFILE, $infile) or die "Couldn't open $infile : $!\n";
open (OUTFILE, ">$outfile"
or die "Couldn't open $outfile : $!\n";while (<INFILE>) {
#remove any newline charachters
chomp;
#remove the last charachter
chop;
print OUTFILE $_;
}
close (INFILE);
close (OUTFILE);
[/tt]
Will.
fortytwo
will@hellacool.co.uk
cluelessNewbie
Programmer
or if the "|" char is sometimes there & sometimes not there...
Code:
while (my $line = <INFILE>){
chomp $line;
$line =~ s/\|$//; #replaces chop $line;
}- Status
Similar threads