Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!iijnet!yuri.rd.ikegami.co.jp!ecad02!hsike!ikegami-gw!spin-hsd0-tky!inet-tsb!tis2!ux37!news
From: nanmei@hatsuskai.fuchu.toshiba.co.jp (Kazuhiko Nanmei)
Subject: The regular expression of Japanese.
Content-Type: Text/Plain; charset=ISO-2022-JP
Message-ID: <Dx4wK0.JoG@fuchueis.toshiba.co.jp>
Sender: news@fuchueis.toshiba.co.jp (News System Adomin)
Nntp-Posting-Host: 133.113.31.195
Organization: Fuchu Works, TOSHIBA Corp.,Japan
X-Newsreader: WinVN 0.99.7J (x86 32bit)
Mime-Version: 1.0
Date: Tue, 3 Sep 1996 02:07:12 GMT
Lines: 89
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1177
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1177&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BFnL@!wEl<G$G$9!#(B
$B$9$:$-!wEl<G%7%9%F%`%F%/%N%m%8!<$5$s$NBeM}%]%9%H$7$^$9!#(B
----------------------------------------
$B$9$:$-!wEl<G%7%9%F%`%F%/%N%m%8!<$G$9!#(B

$B%U%!%$%k$N%3%a%s%H$+$i!"%U%!%$%k$N%?%$%H%k$r<hF@$9$k%9%/%j%W%H$r(B
$B:n$C$F$$$k$N$G$9$,!"$&$^$/F0$$$F$/$l$^$;$s!#(B

$B;EMM$O!"(B
$B!|8!:w(B($B%?%$%H%k$r<hF@(B)$B$9$k%U%!%$%k$N%Q%9$r%j%9%H%U%!%$%k$+$iFI9~$_!"(B
         +-----------------
         |/aaa/bbb/ccc.c
         |/aaa/ddd/eee.c
         |  $B!D(B
         |/aaa/zzz/xyz.c
         +-----------------
$B!|%U%!%$%k$N%X%C%@%3%a%s%H(B($B@hF,(B30$B9T(B)$B$+$i!V%?%$%H%k!W$H$$$&J8;zNs$r4^$`9T(B
  $B$r%5!<%A$7$F!"%U%!%$%k$N%?%$%H%k$r<hF@$9$k!#(B
          /************
            $B%=!<%9L>(B : ccc.c
            $B%?%$%H%k(B : $B!{!_"$%W%m%0%i%`(B
               $B!D(B
          ************/

$B$H$$$&!";j$C$F4JC1$J$b$N$G$9$,!"$&$^$/$$$-$^$;$s!#(B

$ttl = `head -30 $path |grep  $ttl_1`;
($BCm!'(B$path="($B8!:w%U%!%$%k$N%Q%9(B)",$ttl_1='$B%?%$%H%k(B' )
$B$G!"<hF@$9$k$3$H$O$G$-$^$7$?$,!"2<$K<($7$?!"@55,I=8=$G8!:w$9$kJ}K!$G$O(B
$B$&$^$/F0$-$^$;$s$G$7$?!#(B
$B2?$,$$$1$J$$$N$+=u8@$*4j$$$$$?$7$^$9!#(B

---[$B$3$3$+$i(B]----------------------------------------------------------
#!/usr/local/bin/perl

$file = "/hoge/hoge/path_list.txt";  # $B8!:wBP>]%U%!%$%k$N%j%9%H%U%!%$%k(B
$ttl_1 = '$B%?%$%H%k(B';         # $B8!:wJ8;z(B

open(FILE,"$file");

$c = 0;
while(<FILE>){
 $path[$c] = $_ ;            # $B8!:wBP>]%U%!%$%k$N(Bpath$B$rG[Ns$K(Bset
 $c++ ;
}
close(FILE);

foreach $a (@path) {
  # $B=i4|CM(Bset
  $ttl = " untitled ";

  $a =~ s/\n//go ;

  if(-r $a){                 # read$B8"$"$j(B
    open(READ,"$a");
    $c = 0;
    while(<READ>){
      if($_ =~ /$ttl_1/ ){
        if(/:/){
          @x = split(/:/,$_);
        }else{
          @x = split(/\s+/,$_);
        }
        @x = reverse(@x);
        $ttl = $x[0];
        last ;
      } elsif( /$ttl_2/ ){
        if(/:/){
          @x = split(/:/,$_);
        }else{
          @x = split(/\s+/,$_);
        }
        @x = reverse(@x);
        $ttl = $x[0];
        last ;
      }
      $c++ ;
      if($c == 30){
        last ;
      }
    }                        # end-of-while
    close(READ);
  } else {                   # file$B$K(Bread$B8"$,$J$+$C$?(B
    $ttl = " ??? " ;
  }
  
  print "$a : [$ttl]\n";     # file$BL>(B & $B%?%$%H%k(B
}                            # end-of-foreach

