20251125

2025-11-25 00:28:51 +08:00
commit eb3f16c30e
406 changed files with 91653 additions and 0 deletions
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+
+my $delimeter = ($ARGV[0] eq '-s') ? '\s+' : '\t';
+
+while (<STDIN>) {
+    
+	unless (/\w/) {
+		print "0\n\n";
+		next;
+	}
+
+	chomp;
+    my $x = 0;
+    my @x = split (/$delimeter/);
+    foreach my $word (@x) {
+		print "$x\t$word\n";
+		$x++;
+    }
+    print "\n";
+    #last;
+}