For completeness of the perl version, the script below is the same as
perl -pi -e 's/"//g' filename
to do an place edit, or use -pi.bak to save a backup.
charles
On Tue, 10 Apr 2001, Jacob Killian wrote:
> #!/usr/bin/perl -w
>
> # $file is the file you want to strip the '"' from.
> $file = /path/to/filename;
>
> # $tmp is the file we write w/o the '"'s
> $tmp = /path/to/tmp;
>
> # If you want to get $file and $tmp from the command line, remove the
> # previous two lines ($file... and $tmp...), and uncomment the next two
> # lines:
> # $file = $ARGV[0];
> # $tmp = $ARGV[1];
> # I would also include a check to make sure that the file exists before
> # attempting to open it (but that's me), like so:
>
> # if (-e $file) {
> # if (-e $tmp) {
>
> # Open $file for reading
> open FILE, "<$file" || die "\nDid not open $file\n";
> # Open $tmp for writing
> open TMP, ">$tmp" || die "\nDid not open $tmp\n";
> # For each line of $file...
> while (<FILE>) {
> # Substitute any and all '"'s with <NULL>.
> $line = s/\"//g;
> # Write the line to $tmp
> pint TMP $line;
> } #endwhile
>
> # And ALWAYS close your file handles!
> close FILE;
> close TMP;
>
> # If you want, you can move $tmp to $file, overwriting the original...To do so,
> # Include the following line:
> system ("mv $tmp $file");
>
> # } #endif
> # } #endif
> # END of script
>
> I'm sure that this can be done much more easilly on the command line, but you
> wanted perl. You can litterally cut and paste out of this e-mail.
>
> <http://www.perldoc.org> is a great *FREE* site for perl documentation.
>
> Jacob
>
> On Tue, 10 Apr 2001, you wrote:
> > Can anyone give me a quick reference for building a script that removes all
> > quotes (" symbols) from a given file?
> >
> > I imagine a sed or perl script could do it. Is there any good free
> > books/online resources that teach that kind of stuff? (Besides 'man sed'?)
_______________________________________________
Redhat-list mailing list
[EMAIL PROTECTED]
https://listman.redhat.com/mailman/listinfo/redhat-list
