程嶏清单12-9.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 8 行

open(FILE, "<format.dat");
@lines = <FILE>;
close(FILE);
foreach (@lines) {
    chop;
    ($album, $artist, $price) = (split(/!/));
    print("Album=$album   Artist=$artist   Price=$price\n");
}