Question

I have got 2 perl scripts, first one removes blank lins from a file and the second one removes all spaces inside a file. I wonder, if it’s possible to connect both of these regular expressions inside 1 script?

---

For spaces, i have used this regsub: $str =~ tr/ //d;
and for Blank lines, I have used this regexp

while (<$file>) {
    if (/\S/){
    print $new_file $_; }}

---

Answer 1

It should be really easy: just add tr/ //d before the if line.

Note: It will remove lines containing spaces only, too. If you want to keep them (but transliterated to empty lines), insert the transliteration before the print line.