Ada banyak sekali file dengan nama my_file_1.php, bagaimana caranya agar saya dapat menamai-ulang menjadi my-file-1.php
use strict;
use warning;
use 5.010;
my $dir = shift or die "Usage: $0 DIR";
use Path::Iterator::Rule;
use Path::Tiny qw(path);
my $rule = Path::Iterator::Rule->new;
for my $file ( $rule->all( $dir ) ) {
#say $file;
my $pt = path $file;
#say $file->basename;
if ($pt->basename =~ /\.php$/) {
my $newname = $pt->basename;
$newname =~ s/_/-/g;
#say "rename " . $pt->path . " to " . $pt->parent->child($newname);
rename $pt->path, $pt->parent->child($newname);
}
}
Simpan kode tersebut sebagai rename.pl dan jalankan pada command line perl rename.pl path/to/dir.
Sebagai alternatif, simpan sebagai rename.pl, ganti baris my $dir ... dengan
my $dir = "/full/path/to/dir";
kemudian Anda dapat menjalankannya tanpa menggunakan nama direktori pada command line.
Pada Windows nama path bisa menggunakan tanda garis miring:
my $dir = "c:/full/path/to/dir";,
ataupun menggunakan back-slash: my $dir = "c:\\full\\path\\to\\dir";.
Path::Iterator::Rule akan memungkinkan kita untuk melompati alur direktori, sehingga kita dapat menamai ulang semua file di semua alur.
Path::Tiny bisa membantu kita mengekstraksi nama direktori dan membuat nama baru.
