�� (artemirk)

Wed, 10 Oct 2007 17:14:14 GMT

�� pl �� perl ��. �� .

�� :
$./2.pl
Test out
$./2.pl >text
$cat text
Test out

1.pl
#!/usr/bin/perl
system("./out.pl");

2.pl
#!/usr/bin/perl
system("./1.pl");

out.pl
#!/usr/bin/perl
print "Test out";

�� (angra)

Wed, 10 Oct 2007 16:58:51 GMT

��
$ >sres
$ cat p1 p2 p3
#!/usr/bin/perl
print "perl1\n";
#!/usr/bin/perl
system('./p1');
#!/usr/bin/perl
system('./p2');
$ ./p3 >sres
$ cat sres
test

OpenForum RSS: ��������� �������

��������� ������� (artemirk)

��������� ������� (angra)

OpenForum RSS: ��

�� (artemirk)

�� (angra)