Domanda di colloquio di Juniper Networks

Remove mutiple blank spaces in a line

Risposta di colloquio

Anonimo

4 ott 2010

#!/usr/bin/perl my $line = "foo bar car nar far" ; print $line , "\n" ; $line =~ s/\s+//g; print $line , "\n" ;