请教, 将文件名输出到每条记录。

Quantum Gaussian Channels with Additive Correlated Classical Noise 0609018v1.pdf
Quantum Cryptography Approaching the Classical Limit 1004.3345v1.pdf
.
.

以上是文献列表清单，由 （文章的名字+编号） 构成。

其中，编号的前4位代表着文献刊登的日期，如06年09月。


想以如下方式输出每条记录：

-----------------------------------------
@ARTICLE{0609018v1,
  title = {Quantum Gaussian Channels with Additive Correlated Classical Noise},
  journal = {quan-ph},
  year = {2006},

}


@ARTICLE{1004.3345v1,
  title = {Quantum Cryptography Approaching the Classical Limit},
  journal = {quan-ph},
  year = {2010},

}

[oracle@imeg02 zgw]$ perl -ne 'print "\@ARTICLE{$2,\n title = {$1},\n journal = {quan-ph},\n year = {20$3},\n\n}\n\n" if /(\D+)\s+((\d{2}).*)\.pdf$/' file
@ARTICLE{0609018v1,
title = {Quantum Gaussian Channels with Additive Correlated Classical Noise},
journal = {quan-ph},
year = {2006},

}

@ARTICLE{1004.3345v1,
title = {Quantum Cryptography Approaching the Classical Limit},
journal = {quan-ph},
year = {2010},

}

回复 99超人


谢谢

#!/usr/bin/perl -w
use strict;
use warnings;


open(IN_FILE, "<quan.txt") || die ("Could not open qu.txt");

while(<IN_FILE>) {

chomp($_);

if( /(\D+)\s+((\d{2}).*)\.pdf$/  )
{

print "\@ARTICLE{$2,\n title = {$1},\n journal = {quan-ph},\n year = {20$3},\n\n}\n\n"

}

}

close(IN_FILE);