any way to one line this?#!/Perl/bin/perl -w use IO::File; use strict; my $file = new IO::File; my $new_file = new IO::File; $file->open("<memgrp.dat"); $new_file->open(">>new_mem_grp.dat"); while(!$file->eof) { my $line = $file->getline; $line =~ s/}//g; $new_file->write($line,length($line)); } $new_file->close; $file->close;
In reply to Is this possible to make a one liner? by Grygonos
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |