Txt karıştırıcı programı yapabilecekler ücretli

[Pluton]

Zamanında spiders_danger yapıvermişti ama 2 milyonun çok üstüne çıktı sayı ondan yenisini yaptırıcam =)

Şimdi olay şu; Elimde 10'dan fazla txt dosya mevcut ve bunların içinde 70k 'dan 500k 'ya kadar urller mevcut

Benim istediğim program belirttiğim klasörün içinde ki bu txtlerin hepsini alacak sonra bunları birbiriyle karıştıracak ve benim belirttiğim satır sayısı kadar txt dosyaya tekrar bölecek.

yapabilecekler ne kadara yapabileceğinizi yazın pm gönderin falan işte yapın bişiler.

Bugün yada yarına yetişecek ama =)

not: ha bide mümkünse java ile olmayacak

[Mum_Chamber]

ben beyin cimnastigi olarak yaparim, sonrasinda da durumumu isterim.

ama anlamadigim seyler var, bu url'ler karsilastirilip ne yapilacak?

[Pluton]

Karşılaştırma değil karıştırılıcak =)

[Bone]

karıştırılıp ne yapılcak peki?

[nomsaR]

her dosyada eşit sayıda url li txt ler elde edicek, bunu yapıp ne yapacak peki?

[Pluton]

Abi ajan mısınız o şekilde lazım işte =)

[dasaaa]

söylemiyorsa world domination içindir..

hmmm

[Mum_Chamber]

layn, om olacakti bu =)

[Bone]

dasaaa said:

söylemiyorsa world domination içindir..

hmmm

aha yakaladık!

[asinanyavuz]

diğer topikten.

asinanyavuz said:

	use Tie::File;

	tie @array, 'Tie::File', "file.txt" or die "Unable to open file!";

	$lineamount = @array;

	for($i=0;$i<100;$i++){

	my $r_number = int(rand($lineamount));

	print $array[$r_number]."n";

	}

	

kesinlikle farklı linelar olsun istersen de şöyle bişey yapabilirsin

	use Tie::File;

	tie @array, 'Tie::File', "file.txt" or die "Unable to open file!";

	$lineamount = @array;

	%written_lines = ();

	$r_number = 0;

	for($i=0;$i<100;$i++){

	do{

		$r_number = int(rand($lineamount));

	}while (exists $written_lines{$r_number});

	print $array[$r_number]."n";

	$written_lines{$r_number} = 1;

	}

	

[Pluton]

Onu biliyorum da Müm halletti sağolsın 32 dürümümü aldı ama :P Sağol Müm süper oldu bu

[Mum_Chamber]

saat ucretim 5 durum, kod yazdirmak isteyenlere duyrulur :P