z*u
2 楼
发信人: zhangdayou (张打油), 信区: Poetry
标 题: 转载 五言两首
发信站: BBS 未名空间站 (Thu Aug 25 09:27:59 2011, 美东)
发信人: zhangdayou (张打油), 信区: Poetry
标 题: 五言 两首
发信站: BBS 未名空间站 (Tue Aug 23 13:53:01 2011, 美东)
一：
云疏湿气重，蔫绿掩衰花。
倦鸟弱归鸣，痴心思去葩。
帘风空添岁，醉月徒照茶。
烟障喧嚣里，怎堪话桑麻。
二：
离家十数载，异域寄此身。
书剑就东市，田园复西巡。
久别唯谋道，终归不话贫。
辛酸知多少，向隅泪沾巾。
标 题: 转载 五言两首
发信站: BBS 未名空间站 (Thu Aug 25 09:27:59 2011, 美东)
发信人: zhangdayou (张打油), 信区: Poetry
标 题: 五言 两首
发信站: BBS 未名空间站 (Tue Aug 23 13:53:01 2011, 美东)
一：
云疏湿气重，蔫绿掩衰花。
倦鸟弱归鸣，痴心思去葩。
帘风空添岁，醉月徒照茶。
烟障喧嚣里，怎堪话桑麻。
二：
离家十数载，异域寄此身。
书剑就东市，田园复西巡。
久别唯谋道，终归不话贫。
辛酸知多少，向隅泪沾巾。
a*e
3 楼
目录里有的是小写文件名，有的是大写，怎么都改成大写？
k*m
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!
http://www.jstage.jst.go.jp/login?mid=bcsj&sourceurl=/article/bcsj/71/2/467/_pdf&lang=en
Thanks!
v*a
5 楼
下了。这软件是我提到几个中最流氓的一个了。我装了用过不到10次。基本还是两个PP
主打。
【在 i******t 的大作中提到】
: 咋整
主打。
【在 i******t 的大作中提到】
: 咋整
L*1
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;
~
#!/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*e
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";
【在 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";
j*a
8 楼
for i in *; do j=`echo $i | tr a-z A-Z`; echo mv $i $j; done
要是觉得可以就把echo去掉
【在 a*******e 的大作中提到】
: 目录里有的是小写文件名，有的是大写，怎么都改成大写？
要是觉得可以就把echo去掉
【在 a*******e 的大作中提到】
: 目录里有的是小写文件名，有的是大写，怎么都改成大写？
a*e
9 楼
thanks a lot.
that's what i am expecting, some simple bash script
bash is so powerful.........
【在 j*a 的大作中提到】
: for i in *; do j=`echo $i | tr a-z A-Z`; echo mv $i $j; done
: 要是觉得可以就把echo去掉
:
that's what i am expecting, some simple bash script
bash is so powerful.........
【在 j*a 的大作中提到】
: for i in *; do j=`echo $i | tr a-z A-Z`; echo mv $i $j; done
: 要是觉得可以就把echo去掉
:
Z*0
10 楼
maybe works.
rename ‘y/a-z/A-Z/’ *
rename ‘y/a-z/A-Z/’ *
相关阅读
文献求助啊 大海世界 ADC 会议 ，药业把这一学科当成黄金储备Paper help pleasePlease get this paper for me. 1 baozi. Thanks!Analytical Chemist/Toxicologist needed in a clincal toxicology Lab, Tulsa, OKPaper help, Thanks!如何检测小分子化学物纯度诺奖怎么没发给 Yaghi ？Paper Help! Thanks!Paper help, Thanks!金属氢研究的怎么样了？paper download helpExperienced Polymeric Material Scientist NeededPlease get this paper for me. 1 baozi. Thanks!Paper helppaper help. Thanks!大家估计ACS Omega杂志以后能有几分啊？紧急求助：terbuthylazine带正电荷还是负电荷？公司里这些头衔哪个级别高？