Zna się ktoś na prel'u ?

[Radoslaw Zielinski]

Radoslaw Zielinski <radek w karnet.pl> [12-12-2004 23:54]:
> Przemysław Iskra <sparky w 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 w karnet.pl>
[ GPG key: http://radek.karnet.pl/ ]
-------------- następna część ---------
#!/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 $!;
}

-------------- następna część ---------
Załącznik, który nie był tekstem został usunięty...
Name: nie znany
Type: application/pgp-signature
Size: 189 bytes
Desc: nie znany
Url : /mailman/pipermail/pld-devel-pl/attachments/20041212/e4cb6a83/attachment.bin