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 Shaun E on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Cut string from the text file
- Thread starter 1yura1
- Start date
open(IN, "textfile"
or die "cannot open textfile\n";
open(OUT,">temporarytextfile" or die "cannot open temporarytextfile"
my $searchstring="Some string";
while(<IN>){
my $line=$_;
$line=~s/$searchstring//; #replace it with null string
print OUT "$line";}
#now delete textfile
unlink "textfile";
#and replace it by temporarytextfile this can be done
# via a system call, so let's first determine OS
my $Operating_system=$^O;
$Operating_system=uc($Operating_system);
unless($Operating_system=~/MSWIN32/){
system ("mv temporarytextfile textfile"#use the Unix move function
}else{#a Windows machine..
system ("copy temporarytextfile textfile"#
system ("delete temporarytextfile"
}
hope this helps,
svar
or die "cannot open textfile\n";open(OUT,">temporarytextfile"
or die "cannot open temporarytextfile"my $searchstring="Some string";
while(<IN>){
my $line=$_;
$line=~s/$searchstring//; #replace it with null string
print OUT "$line";}
#now delete textfile
unlink "textfile";
#and replace it by temporarytextfile this can be done
# via a system call, so let's first determine OS
my $Operating_system=$^O;
$Operating_system=uc($Operating_system);
unless($Operating_system=~/MSWIN32/){
system ("mv temporarytextfile textfile"
;#use the Unix move function}else{#a Windows machine..
system ("copy temporarytextfile textfile"
;#system ("delete temporarytextfile"
;}
hope this helps,
svar
- Status
Similar threads
