File: dic2iso.pl

package info (click to toggle)
igerman98 20091006-4.2
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 2,372 kB
  • ctags: 74
  • sloc: perl: 938; sh: 574; makefile: 558; sed: 32
file content (28 lines) | stat: -rwxr-xr-x 423 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;

while ($ARGV[0] =~ /^-/) {
	$_ = shift;
	last if /^--/;
	if (/^-n/) {
	$nflag++;
	next;
	}
	die "I don't recognize this switch: $_\\n";
}
$printit++ unless $nflag;

$\ = "\n";	# automatically add newline on print

while (<>) {
	chop;
	s/a"//g;
	s/A"//g;
	s/o"//g;
	s/O"//g;
	s/u"//g;
	s/U"//g;
	s/sS//g;
	print if $printit;
}