File: filtuu

package info (click to toggle)
libfilter-perl 1.45-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 576 kB
  • sloc: perl: 653; makefile: 6
file content (6 lines) | stat: -rwxr-xr-x 93 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
 
#!/usr/bin/perl

print "use Filter::UUdecode ;\n" ;
while (<>) {
    print pack("u", $_) ;
}