11 lines
173 B
Perl
Executable File
11 lines
173 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
while(<STDIN>) {
|
|
chomp($texi_file = $_);
|
|
s/[_[:space:]]+/_/g;
|
|
s/^_*//g;
|
|
s/_*.texi_*//g;
|
|
`$ARGV[0] -o "$_.info" "$texi_file"`;
|
|
`rm "$texi_file"`;
|
|
}
|