Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Apr 24th, 2012  |  syntax: None  |  size: 0.40 KB  |  hits: 9  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Perl Range String ID
  2. foreach($begID..$endID){
  3.    print $_;
  4. }
  5.        
  6. $begID = ABC-ABC-00001;
  7.  $endID = ABC-ABC-00100;
  8.        
  9. ($start) = $begID =~ m/(d+)$/;
  10. ($end) = $endID =~ m/(d+)$/;
  11.        
  12. my ($prefix, $start) = ($begID =~ /^(D+)(d+)$/;
  13. my ($prefix2, $end) = ($endID =~ /^(D+)(d+)$/;
  14. die "Prefixes don't match" unless prefix eq $prefix2;
  15. foreach my $index ($start .. $end) {
  16.     my $id = "prefix$index";
  17. }
create a new version of this paste RAW Paste Data