Hi, guys. I was trying to do a japh with a twist. Kind of a:
print "Just another Perl highlander\n";
but not using each character more then once...
This is what I got so far:
#!/usr/bin/perl
$_=lc(q{#uS69A0oThE4:%'R.?HIG*LaN&er});
[EMAIL PROTECTED]<XVQZJYPd-v >,
It does what I want it to do, but uses two "r"s and two "-"s. If anyone
could offer me some other suggestion, I'd be much appreciated :-) (this
has probably been tried before, but I couldn't find anything on it...)
BTW, here's the script I used to validate the requirement:
#!/usr/bin/perl -nw
use strict;
our %t;
next if $. == 1;
next if /^#/;
last if /^__END__$/;
chomp;
$t{$_}++ for (split //);
}{
for (sort {$t{$a} <=> $t{$b}} grep {$t{$_} > 1} keys %t) {
print "$_ -> $t{$_}\n";
}
(they're both being sent as attaches, too)
Regards to all,
jac
--
Jos� Alves de Castro <[EMAIL PROTECTED]>
http://natura.di.uminho.pt/~jac
#!/usr/bin/perl
$_=lc(q{#uS69A0oThE4:%'R.?HIG*LaN&er});
[EMAIL PROTECTED]<XVQZJYPd-v >,
#y!!"#$%&'()*+,-./0123456789:;<=>[EMAIL PROTECTED]
#XVQZJYPdefghijklmnopqrstuv !.
print
__END__
#s[\d]< >g.
abcdefghijklmnopqrstuvwxyz
^ ^ ^ ^ ^ ^
#!/usr/bin/perl -nw
use strict;
our %t;
next if $. == 1;
next if /^#/;
last if /^__END__$/;
chomp;
$t{$_}++ for (split //);
}{
for (sort {$t{$a} <=> $t{$b}} grep {$t{$_} > 1} keys %t) {
print "$_ -> $t{$_}\n";
}
signature.asc
Description: This is a digitally signed message part
