Unsort Lines TextMate命令

Posted 2021-02-25

Need to "unsort" / randomize / scramble LINES in a text?
Copy source -> then TextMate Bundle Editor -> New Command -> select all in Command(s) -> paste source -> Input: Selected Text or Document -> Output: Replace Selected Text ...

#!/usr/bin/perl -wl
 
@f=<>;
 
for $i (0 .. $#f) {
	$r=int rand ($i+1);
	@f[$i, $r]=@f[$r,$i] if ($i!=$r);
}
 
chomp @f;
 
print join $/, @f;