paper help/Bulletin of the Chemical Society of Japan - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Chemistry - 化学

paper help/Bulletin of the Chemical Society of Japan

paper help/Bulletin of the Chemical Society of Japan# Chemistry - 化学

i*t2009-08-18 07:08

1 楼

咋整

z*u2009-08-18 07:08

2 楼

发信人: zhangdayou (张打油), 信区: Poetry
标题: 转载五言两首
发信站: BBS 未名空间站 (Thu Aug 25 09:27:59 2011, 美东)
发信人: zhangdayou (张打油), 信区: Poetry
标题: 五言两首
发信站: BBS 未名空间站 (Tue Aug 23 13:53:01 2011, 美东)
一：
云疏湿气重，蔫绿掩衰花。
倦鸟弱归鸣，痴心思去葩。
帘风空添岁，醉月徒照茶。
烟障喧嚣里，怎堪话桑麻。
二：
离家十数载，异域寄此身。
书剑就东市，田园复西巡。
久别唯谋道，终归不话贫。
辛酸知多少，向隅泪沾巾。

a*e2009-08-18 07:08

3 楼

目录里有的是小写文件名，有的是大写，怎么都改成大写？

k*m2009-08-18 07:08

4 楼

Bulletin of the Chemical Society of Japan (1998), 71, (2), 467-473
http://www.jstage.jst.go.jp/login?mid=bcsj&sourceurl=/article/bcsj/71/2/467/_pdf&lang=en
Thanks!

v*a2009-08-18 07:08

5 楼

下了。这软件是我提到几个中最流氓的一个了。我装了用过不到10次。基本还是两个PP
主打。

【在 i******t 的大作中提到】

: 咋整

L*12009-08-18 07:08

6 楼

Try this:
#!/usr/bin/perl
my $dir = "/tmp"; # change it!
print "$dir\n";
opendir(DIR, $dir) || die "Error in opening dir $dir\n";
chdir($dir);
while( ($filename = readdir(DIR)))
{
next if (-d $filename);
print "$filename\n";
my $new_filename = uc($filename);
print "-- $new_filename\n";
#system("mv $filename $new_filename");
}
closedir(DIR);
exit;
~

a*e2009-08-18 07:08

7 楼

how to run it? save it as a txt and chmod +x?

【在 L*1 的大作中提到】

: Try this:
: #!/usr/bin/perl
: my $dir = "/tmp"; # change it!
: print "$dir\n";
: opendir(DIR, $dir) || die "Error in opening dir $dir\n";
: chdir($dir);
: while( ($filename = readdir(DIR)))
: {
: next if (-d $filename);
: print "$filename\n";