daily pastebin goal
14%
SHARE
TWEET

Untitled

a guest Feb 22nd, 2018 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/local/bin/perl
  2.  
  3. $fullsource = '';
  4. open (MYFILE, 'danosource.txt');
  5. while (<MYFILE>)
  6. {
  7.     chomp;
  8.     $fullsource .= "$_\n";
  9. }
  10. close (MYFILE);
  11.  
  12. @classes = $fullsource =~ m/<a href="javascript:__doPostBack\('DataGridSummary\$_ctl[0-9]*\$_ctl0',''\)">([^<]+)<\/a><[^>]+><[^>]+>[^0-9<]+([0-9.]*) *([A-F\-+]*)/g;
  13.  
  14. $i = 0;
  15. foreach $var (@classes)
  16. {
  17.     if ($i == 0)
  18.     {
  19.         print "$var \t";
  20.     }
  21.     elsif ($i == 1)
  22.     {
  23.         print $var;
  24.     }
  25.     else
  26.     {
  27.         print " (".$var.")\n";
  28.         $i = -1;
  29.     }
  30.     $i++;
  31. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top