test.pl

来自「perl tester to steam character sequence.」· PL 代码 · 共 37 行

#!/usr/local/bin/perl 

$file = 'Input.txt';
$file2 = 'Output.txt';
open(INPUT, $file);
open(OUTPUT, ">$file2");

while ($line = <INPUT>)
{
	chomp($line);
  $newline = trim($line);
	@array = split(//,$newline);
	
	while(@array)
		{
			$diget =shift(@array);
			chomp($diget);
		
				print OUTPUT "$diget\n";

		}
		chomp($line);
}
close(INPUT);
close (OUTPUT);
 


sub trim($)
{
	my $string = shift;
	$string =~ s/^\s+//;
	$string =~ s/\s+$//;
	return $string;
}