File: totw_zhe.pl

package info (click to toggle)
debian-zh-faq 1.11
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 184 kB
  • ctags: 46
  • sloc: perl: 179; makefile: 170
file content (13 lines) | stat: -rwxr-xr-x 323 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl -p

# o{ǬOΨӹ debian-tutorial c餤媩@XuBzvAĤGC
# uۡvؼgkKK
#
# @̡GNFF Anthony Fok <foka@debian.org>

next if /^%/;

1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)(?<!\<\<)(?!\>\>)/$1\\zhe /);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)\<\<\>\>/$1/);

#