Zna się ktoś na prel'u ?

[Radoslaw Zielinski]

Radoslaw Zielinski <radek at karnet.pl> [12-12-2004 23:54]:
> Przemysław Iskra <sparky at servek.sparky.homelinux.org> [12-12-2004 15:26]:
[...]
> Załączam nieco prostszy test-case.  Wywołanie:

Nie zapomniałem.  Prawie.

-- 
Radosław Zieliński <radek at karnet.pl>
[ GPG key: http://radek.karnet.pl/ ]
-------------- next part --------------
#!/usr/bin/perl
use strict;

# not ok: v5.8.3, v5.8.6

my $count = shift;
my $split = int($count / 2);

warn `ps v $$`;
for (sort 1 .. $count) {
	warn `ps hv $$` if $_ == 1 || $_ == $split || $_ == $count;
	foo($0);
}
warn `ps hv $$`;

sub foo {
	open F_IN, shift or die $!;
##	print <F_IN>;
##	map print, <F_IN>;
##	local *_;
	print while <F_IN>;
	close F_IN or die $!;
}

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
URL: </mailman/pipermail/pld-devel-pl/attachments/20041212/e4cb6a83/attachment.sig>