in reply to Removing Spaces From A File
You would call it from the command line like so:#!/opt/perl5/bin/perl -w use strict; my($name,$pass); while(<STDIN>){ chomp; my $name=$pass=$_; $pass=~s/\s+//g; $pass=~tr[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz][2223 +3344455566 67778889990022233344455566677788899900]; print"$name\t\t$pass\n"; }
C:\perl trans.pl < sn.txt > pwd.txt
|
|---|