delete perticular characters

[santoshdj123]

hi

I want to write one script which should delete perticular character (or i will pass it as an argument with the pl script) and make the changes in the existing file and saves the file.
if anyone can assist me then i will be very thankful

 

[Geekatron]

Like this?

Usage: <scriptname> <char to delete> <filename>

#!<your perl binary location>

$char=$ARGV[0]; # get char to delete from command line
$file=$ARGV[1]; # get file to modify from command line

undef $/;

# get file contents
open(IN,"<$file");
$file=<IN>;
close IN;

# delete char
$file=~s/$char//gs;

# print file back out
open(OUT,">$file");
print OUT $file;
close OUT;

--G

 

[uida1154]

you could make the script more "neat" by using Getopt::Long

#!/usr/bin/perl -w
use strict;
use Getopt::Long;

my @optionlist = qw(-character=s -filename=s);
my %options;
GetOptions(\%options, @optionlist);

print "all $options{character} will be removed from $options{filename}\n";

This will save you some error handling.