Help for this page
1) perl -nle '$result .= " $_"; END{print $result}' data.txt 2) perl -e "chomp(@lines=<>); print join ' ', @lines" data.txt
perl -e 'undef $/; $text=<>; $text =~ tr/\n//; 1 while $text =~ s/\b( +\w+\d+\s*\d+\.\d+\.\d+\.\d+)\s*\1\b/$1/ig; print $text; $/="\n"; list
use strict; use warnings; ... --output:-- S55 1.1.1.1 S66 2.2.2.2 S55 1.1.1.1
perl -nle '$results{$_}=undef; END{print join " ", keys %results}' dat +a.txt
www.com | www.net | www.org
No recent polls found