Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!decwrl!intertech-nh!utashiro
From: utashiro@InterTech.COM (Kazumasa Utashiro)
Subject: Re: .newsrc sort program.
Message-ID: <1992Jun15.082815.21542@InterTech.COM>
Organization: InterTech Data Systems, Inc., Cupertino, CA
References: <S-YAMA.92Jun15153551@newvenus.ics.osaka-u.ac.jp>
Distribution: fj
Date: Mon, 15 Jun 1992 08:28:15 GMT
Lines: 16
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:31
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=31&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.

In article <S-YAMA.92Jun15153551@newvenus.ics.osaka-u.ac.jp>
s-yama@ics.osaka-u.ac.jp (Yamamoto Shigeru) writes:
>$B%W%m%0%i%`$r8+$k$H$9$0$o$+$k$H$*$b$$$^$9$,!"0lEY%"%k%U%!%Y%C%H=g$K(B
>$B%=!<%H$7$F$+$i!"(B@MyPattern $B$KNs$Y$F$"$k=gHV$KA0$K$/$k$h$&$KNs$Y$^$9!#(B

$B<B9T$7$F$_$F$J$$$N$G$h$/$o$+$j$^$;$s$,!"$3$N%3%^%s%I7k9=CY$$(B
$B$s$8$c$"$j$^$;$s$+(B?

$BF,$+$iFI$s$G!"%Q%?!<%s$4$H$KJL$NG[Ns$K$?$a$F!":G8e$K$=$l$r(B 
print sort @a, sort @b, sort @c... $B$N$h$&$K=PNO$9$k$h$&$K$9(B
$B$k$H$+$J$jB.$/$J$k$H;W$$$^$9$h!#(B

sra.co.jp:pub/lang/perl/sra-script $B$K;w$?$h$&$J%3%^%s%I$,$"(B
$B$k$N$G$h$+$C$?$i8+$F2<$5$$!#(B

--utashiro
