On Jan 25, 2008, at 11:01 AM, After Hours wrote:
I have an unusual need to randomize a text file with about 500
lines (defined by CR line endings).
Is there a method I've not discovered in BBEdit that will randomize
such a text file?
You can do it with a Unix filter. Here's one in PERL (which I found
on the web at some point). Just save it in your Unix Filters folder,
then select the lines you want to randomize and run the filter.
#!/usr/bin/perl -w
sub fys {
my $array=shift;
my $i;
for ( [EMAIL PROTECTED]; --$i; ) {
my $j = int rand ($i+1);
next if $i == $j;
@$array[$i,[EMAIL PROTECTED],$i];
}
}
while (<>) {
push(@lines, $_);
}
fys([EMAIL PROTECTED]);
foreach(@lines) {
print $_;
}
--
------------------------------------------------------------------
Have a feature request? Not sure the software's working correctly?
If so, please send mail to <[EMAIL PROTECTED]>, not to the list.
List FAQ: <http://www.barebones.com/support/lists/bbedit_talk.shtml>
List archives: <http://www.listsearch.com/BBEditTalk.lasso>
To unsubscribe, send mail to: <[EMAIL PROTECTED]>
