我正在創建一個系統，作為其程序的一部分，它應該復制許多檔案。我希望如果復制失敗，系統將列印錯誤并移動到下一次迭代（使用 Perlnext陳述句）。
如果有的話，我怎樣才能創建一個單線？
目前我有：
copy($source,$dest) or print "-E- Copy failed: $partition fusion SDC wasn't found\n ";
我想next在print.
uj5u.com熱心網友回復：
EXPR
or print( ... ), next;
EXPR
or do {
print( ... );
next;
};
if ( !EXPR ) {
print( ... );
next;
}
您可以洗掉任何/所有換行符，但next我盡量避免將一個深藏在一行中。
提示：（warn( ... )或print( STDERR ... )）應該print( ... )用于錯誤訊息。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/513202.html
標籤：perl复制
上一篇：Perl將專案推送到子陣列