Readers: 6
|< 1 2 3 4 5 6 >| | 54 entries, 6 pages |
/^.*-.*-\d{4}\.pdf\z/s
m/^\w+-\w+-\w+-\d\d\d\d\.pdf\z/s
1 2 3 4 5 6 7 8 9
#!/usr/bin/perl -w use strict; use Path::Resource; $rsc = Path::Resource->new(uri => "http://localhost/", dir => "/srv/www/htdocs", path => "verzeichnis/m/^\w+-\w+-\w+-\w+-\w+-\d\d\d\d\.pdf\z/s"); my $file = $rsc->file; $uri = $rsc->uri;
1
2
Unrecognised escape \w passed through at line skript.pl line 7
Global symbol "$rsc" requires explicit package name at skript.pl line 6
|< 1 2 3 4 5 6 >| | 54 entries, 6 pages |