程嶏清单12-9.txt

< linux网络编程工具>>配套源码

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