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

Replies are listed 'Best First'.
Re^3: Matching hyphens in file path to extract zip code by haukex (Archbishop) on Feb 05, 2020 at 15:17 UTC
just a little more code Not significantly, I just wrote it more verbosely. `use File::Basename; my ($zip) = fileparse($file) =~ /^(\d{5})\D/;` [download]	[reply] [d/l]
Re^4: Matching hyphens in file path to extract zip code by Anonymous Monk on Feb 05, 2020 at 15:28 UTC
I have to say that is makes the code cleaner and less prone to errors with a long regexp. Thank you!	[reply]
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]