Tfe

Old stuff/Perl/Url/ed2k.pl

#!/usr/bin/perl -w
my ($nom,$taille,$md4,@base);



open(INFO,"/home/tfe/web/dl/ed2k");
while(<INFO>) {
   push(@base, (split(/\|/))[4]  ); 
}
print @base."\n";
close INFO;

$_  = "ed2k://|file|nom|610654|1abcdef32165465464565|/";
if (/    
ed2k:\/\/\|file\|
	([^\|]+) \|
	(\d+) \|
	([a-f0-9]+)
	\|\/
/ix)
{
($nom,$taille,$md4) = ($1,$2,$3);
print "Nveau lien";
}