![]() |
|
|
Googleのunix.com
|
|||||||
| シェルプログラミングとスクリプティング KSH 、 CSH 、 shに、 bashの、はPerl 、 PHPは、削除するsed 、 Awkの、他のシェルスクリプトやシェルスクリプト言語についての質問の投稿はこちら。 |
その他のUNIXおよびLinuxフォーラムトピックは参考にすること
|
||||
| スレッド | スレッドスターター | フォーラム | 返信 | 最後の投稿 |
| Awkの連結のためのロジックを得ることができない | user_prady | シェルプログラミングとスクリプティング | 7 | 2007年12月10日 03:09午前 |
| ファイルの連結 | samit_9999 | UNIXのダミー質問と回答のため | 3 | 2006年11月21日 06:26午前 |
| 文字列の連結 | systemsb | UNIXのダミー質問と回答のため | 7 | 2006年4月4日 01:03午後 |
| )連結(猫を導入する | toughguy2handle | 高レベルのプログラミング | 2 | 2005年9月22日 03:10午前 |
| 連結 | videsh77 | シェルプログラミングとスクリプティング | 2 | 2004年12月14日 06:13午前 |
![]() |
|
|
LinkBack | スレッドツール | このスレッドを検索 | スレッドを評価 | 表示モード |
|
|
|
||||
|
コード:
#!/bin/perl -w
use IO::Handle;
($day, $month, $year) = (localtime)[3,4,5];
$month=$month+1;
$year=$year+1700;
$DB_Date=printf("%02d%02d", $date, $Month);
open (dbfile, "/data1/scp/store/DB/0403/SCP_PP_SUBS.dat") or die "Couldn't get at THE FILE";
@data;
$credit;
$count =0;
print "DB_Date:: $DB_Date \n\n";
print "LESS then the 100 Credit $day/$month/$year\n\n";
print "-------------------------------------------\n";
while (<dbfile>)
{
........................
..........................
............................
...........................
Do some file parsing operation
}
print "Total Count: $count \n";
close dbfile;
|