Pergunta de entrevista da empresa Juniper Networks
Remove mutiple blank spaces in a line
Resposta da entrevista
Sigiloso
4 de out. de 2010
#!/usr/bin/perl my $line = "foo bar car nar far" ; print $line , "\n" ; $line =~ s/\s+//g; print $line , "\n" ;