Re^4: Matching hyphens in file path to extract zip code

I have to say that is makes the code cleaner and less prone to errors with a long regexp. Thank you!

Comment on Re^4: Matching hyphens in file path to extract zip code

Replies are listed 'Best First'.
Re^5: Matching hyphens in file path to extract zip code by Anonymous Monk on Feb 05, 2020 at 23:24 UTC
Path::Tiny `#!/usr/bin/perl -- use strict; use warnings; use Path::Tiny qw/ path /; my $pdf = path( '-/xy/-/02239_04_04_1989_PkW.pdf' ); print $pdf->basename, $/; print $pdf->basename =~ m{^(\d+)_}, $/; __END__ 02239_04_04_1989_PkW.pdf 02239` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Matching hyphens in file path to extract zip code
by Anonymous Monk on Feb 05, 2020 at 23:24 UTC

Path::Tiny

#!/usr/bin/perl --
use strict; use warnings;
use Path::Tiny qw/ path /;
my $pdf = path( '-/xy/-/02239_04_04_1989_PkW.pdf' );
print $pdf->basename, $/;
print $pdf->basename =~ m{^(\d+)_}, $/;
__END__
02239_04_04_1989_PkW.pdf
02239
[download]

[reply]
[d/l]