keedi · March 1, 2011 18:53
diff --git a/piped_system.pl b/piped_system.pl
 #!/usr/bin/env perl

 use 5.010;
 use utf8;
 use strict;
 use warnings;

 my @ids = @ARGV;

 for my $id ( @ids ) {
    open my $passwd, '|-', 'passwd', $id;
    say $passwd "${id}_1111";
    say $passwd "${id}_1111";
    close $passwd;
 }
	#!/usr/bin/env perl

	use 5.010;
	use utf8;
	use strict;
	use warnings;

	my @ids = @ARGV;

	for my $id ( @ids ) {
	open my $passwd, '\|-', 'passwd', $id;
	say $passwd "${id}_1111";
	say $passwd "${id}_1111";
	close $passwd;
	}