remove space, tab, newline etc.. from a text file

[lilly07]

I am trying to remove all white spaces, tabs, newline, carriage return etc.. from a text file to make it as a one continous string. But the following code doesnot work. The file size is relatively smaller and hence I didn't use FILE::slurp. Please let me know the problem. Thanks.

#!/usr/bin/perl
local $/=undef;
open(FILE, "test.fa") || die ("Error\n");
 
$string = <FILE>;
 
$corrected_string =~ s/\n\r\t\s//g;
print "$corrected_string";
 
 

[Icecrack]

for the regexp to work you need to make sure it has a VAR with a string.

#!/usr/bin/perl
local $/=undef;
open(FILE, "test.fa") || die ("Error\n");
 
$string = <FILE>;
 
$string =~ s/\n\r\t\s//g;
print "$string";

[KevinADC]

you want a character class:

$string =~ s/[\n\r\s]+//g;

you don't need \t because its included in \s

[lilly07]

oops! I didn't realise the var component. Thanks.

[ghostdog74]

you can use re extension [:cntrl:]