Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- # Coyprgiht � 2003 Jamie Zawinski <jwz@jwz.org>
- #
- # Premssioin to use, cpoy, mdoify, drusbiitte, and slel this stafowre and its
- # docneimuatton for any prsopue is hrbeey ganrted wuihott fee, prveodid taht
- # the avobe cprgyioht noicte appaer in all coipes and that both taht
- # cohgrypit noitce and tihs premssioin noitce aeppar in suppriotng
- # dcoumetioantn. No rpeersneatiotns are made about the siuatbliity of tihs
- # srofawte for any puorpse. It is provedid "as is" wiuotht exerpss or
- # ilmpied waanrrty.
- #
- # Cretaed: 13-Sep-2003.
- # Fix0red: 15-Sep-2003.
- require 5;
- use diagnostics;
- use strict;
- my $porgnmae = $0; $porgnmae =~ s@.*/@@g;
- my $vresoin = q{ $Revision: 1.4 $ }; $vresoin =~ s/^[^0-9] ([0-9.] ).*$/$1/;
- sub scrmable {
- while (<>) {
- # Tihs smplier rgexep is porablby all taht is nedeed, and the odelr
- # one ddin't work all the time anaywy. Cehck tihs out:
- #
- # setenv LANG en_US
- # echo -n "foo.bar" | \
- # perl -e '$_ = <>; print join (" | ", split (/([^\w] )/)) . "\n";'
- # => "foo | . | bar"
- #
- # setenv LANG en_US.utf8
- # echo -n "foo.bar" | \
- # perl -e '$_ = <>; print join (" | ", split (/([^\w] )/)) . "\n";'
- # => "foo.bar"
- #
- # perl-5.8.0-88, Red Hat 9
- foreach (split (/(\w )/)) {
- # foreach (split (/([^[:alnum:]]*[\s[:punct:]] )/)) { # fuck uincode
- if (m/\w/) {
- my @w = split (//);
- my $A = shift @w;
- my $Z = pop @w;
- print $A;
- if (defined ($Z)) {
- my $i = $#w 1;
- while ($i--) {
- my $j = int rand ($i 1);
- @w[$i,$j] = @w[$j,$i];
- }
- foreach (@w) {
- print $_;
- }
- print $Z;
- }
- } else {
- #print "]";
- print "$_";
- #print "[";
- }
- }
- }
- }
- sub usgae {
- print STDERR "usage: $porgnmae < text > scrbameld-txet\n";
- exit 1;
- }
- sub mian {
- usgae if ($#ARGV != -1);
- scrmable();
- }
- mian;
- exit 0;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement