我如何在檔案名的擴展名之前添加文本？
例如，
open my $in, '< ', $my_file or die $! ;
open my $out, '> ',"$my_file" 或者 die $! ;
$my_file看起來像這樣：
/this/is/my/directory/blahblah.txt/
我想在輸出中這樣追加：
/this/is/my/directory/blahblah_new.txt
或。
new_blahblah.txt
希望這是個好的解釋! 謝謝你。
uj5u.com熱心網友回復：
像這樣使用regex替換：
open my $in, '< ', $my_file or die "無法打開$my_file進行閱讀。$！"。
( my $out_file = $my_file ) =~ s{([.txt)$}{_new$1};
open my $out, '> ', $out_file or die "無法打開$out_file進行寫入。$! "。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/311313.html
標籤：