fork(2) download
  1. my @list = ('file.aspx',
  2. 'Account/otherfile.aspx',
  3. 'Public/otherfile.aspx',
  4. 'otherfolder1/otherfile.aspx?stuff=otherstuff',
  5. 'otherfolder2/otherfolder/otherfile.aspx',
  6. 'otherfolder3/',
  7. 'otherfolder4');
  8.  
  9. foreach (@list) {
  10. print "$1\n" if /^(?!Account|Public)([^\.\/]+\/[^\?]*)$/;
  11. }
  12.  
Success #stdin #stdout 0s 4596KB
stdin
Standard input is empty
stdout
otherfolder2/otherfolder/otherfile.aspx
otherfolder3/