urlstrip

   1 #!/usr/bin/env perl
   2
   3 #==============================================================================
   4 # urlstrip
   5 # File ID: d58ab23a-5d47-11df-a6aa-90e6ba3022ac
   6 # Plukker ut urler fra en fil til bruk for sjekking av linker med wget --spider
   7 #==============================================================================
   8
   9 use strict;
  10 use warnings;
  11
  12 while(<>) {
  13         chomp;
  14         if (/(http\S+?)"/i) {
  15                 my $Curr = $1;
  16                 $Curr =~ s/&amp;/&/g;
  17                 print("$Curr\n");
  18         }
  19 }