Return to forum
to get random 1 million samples
by - Thursday, January 1, 1970 at 12:00 AM
Internet
MVP
Posts: 929
Threads: 0
Joined: N/A
Reputation: 446

#1
May 26, 2022 at 11:51 PM
to get random 1 million samplesPerl[code]open (IN,$ARGV[0]);open (MAIL,">rand.txt");$rand_get=0;$total_get=0;while () { $total_get++; if (int (rand(100)) == 5) { printf("Parsed: $total_get|$rand_get "); } if ($rand_get <= 1000000) { if (int (rand(250)) == 5) { print MAIL $_; $rand_get++; } } } close IN;close MAIL;[/code]
Beneath this mask there is more than flesh. Beneath this mask there is an idea, and ideas are bulletproof.
Telegram

Reply
BreachForums User
VIP
Posts: 589
Threads: 0
Joined: N/A
Reputation: 37

#2
May 30, 2022 at 8:21 AM
Perl is cool
Reply
BreachForums User
MVP
Posts: 56
Threads: 0
Joined: N/A
Reputation: 0

#3
May 31, 2022 at 4:17 AM
how to get 2 millon?
Reply
Internet
MVP
Posts: 929
Threads: 0
Joined: N/A
Reputation: 446

#4
June 1, 2022 at 6:09 PM
(May 31, 2022, 04:17 AM)dubdubdub Wrote: how to get 2 millon?


change this to whatever number's you like 1000000
Beneath this mask there is more than flesh. Beneath this mask there is an idea, and ideas are bulletproof.
Telegram

Reply
BreachForums User
Member
Posts: 0
Threads: 0
Joined: N/A
Reputation: 0

#5
October 14, 2022 at 4:51 PM
(May 26, 2022, 11:51 PM)Blood Wrote: to get random 1 million samples
Perl


open (IN,$ARGV[0]);
open (MAIL,">rand.txt");

$rand_get=0;
$total_get=0;

while (<IN>)
  {
  $total_get++;
  if (int (rand(100)) == 5)
  {
  printf("Parsed: $total_get|$rand_get  
");
  }
    

    
    if ($rand_get <= 1000000)
      {
      if (int (rand(250)) == 5)
    {
    print MAIL $_;
    $rand_get++;
    }
      }
  }
  
close IN;
close MAIL;


Just like that =)Thanks! where is the limit of the MuLTiverse?
Reply


 Users viewing this thread: to get random 1 million samples: No users currently viewing.