Sponsored Content
Top Forums Shell Programming and Scripting awk output error while loop through array Post 302636251 by jlliagre on Monday 7th of May 2012 08:01:59 AM
Old 05-07-2012
The script is working fine but its if (nr[$1] != i) test in the END clause is more than dubious.
You are explicitly excluding the line(s) which second field is equal to the second field of the last line read, here 10 6

Last edited by jlliagre; 05-07-2012 at 10:01 AM.. Reason: grammar
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

move output of awk to array

Hi experts, I have a the following awk command, awk '{print $1}' /users/jon/list4.txt. The output is 123 787 888 ... ... I want to move the output to array using shell programming. My shell is tcsh. Is it possible to move to array using shell porg? I know its possible in... (14 Replies)
Discussion started by: amitrajvarma
14 Replies

2. Shell Programming and Scripting

bash:awk output into an array

Hi, I have a file 1:apple orange:one 2:banana:two 3:cherry:3 When I do awk -F: ' { print $2 } ' file apple orange banana cherry Now, when i redirect awk output to the file it has issue with strings #!/bin/bash FILEA=file A=(`awk -F: ' { print $2 } ' $FILEA `) echo ${A} (2 Replies)
Discussion started by: phamp008
2 Replies

3. Shell Programming and Scripting

Help with awk in array in while loop

Hi everyone:) I have 2 files - IN & OUT. Example: IN A:13:30 B:45:40 . . . UNLIMITED OUT Z:12:24 Y:20:15 . . . UNLIMITED I want first row of numbers of IN - OUT. Example 13-12 45-20 My code is (2 Replies)
Discussion started by: vincyoxy
2 Replies

4. UNIX for Dummies Questions & Answers

Loop on array variable returning error: 0 not found

I'm guessing i have a syntax error. I'm not sure it get's past the the while condition. I get an error 0 not found. Simple loop not sure what I'm doing wrong. #!/usr/bin/ksh set -A MtPtArray /u03 /u06 tUbound=${#MtPtArray } echo $tUbound i=0 while ($i -lt $tUbound) do print... (4 Replies)
Discussion started by: KME
4 Replies

5. Shell Programming and Scripting

Sorting awk array output?

Hi all, I have a script which produces a nice table but I want to sort it on column 3. This is the output line in the script: # Output { FS = ":"; format = "%11s %6s %-16s\n"; prinft "\n" printf ( format, "Size","Count","Who" ) } for (i in... (21 Replies)
Discussion started by: Cowardly
21 Replies

6. Shell Programming and Scripting

Array output through a for loop problematic with multiple elements.

This code works perfect when using a machine with only one interface online. (Excluding the loopback of course) But when I have other interface up for vmware or a vpn the output gets mixed up. I know I had this working when I was just reading ip's from files so I know it is not a problem with... (8 Replies)
Discussion started by: Azrael
8 Replies

7. Shell Programming and Scripting

Need to have output of AWK array in one line

I have this code echo $logfile | awk ' {arr++; next} END { for (i in arr) {print i} }' that gives me this output result1 result2 result3 I try to figure out how to get it like this result1 result2 result3 (4 Replies)
Discussion started by: Jotne
4 Replies

8. Shell Programming and Scripting

Sorting output of AWK array

I need help to sort the output of an awk array Example datadata="1 blue 2 green 3 blue 4 yellow 5 blue 6 red 7 yellow 8 red 9 yellow 10 yellow 11 green 12 orange 13 black" My awk line to get output in one lineecho "$data" | awk ' {arr++; next} END { for (i in arr) { if(arr>1 )... (2 Replies)
Discussion started by: Jotne
2 Replies

9. Shell Programming and Scripting

awk script: loop through array

I have a large file where I want to extract the data by using awk script. I have made a small sample of the input data. I have in the awk script two condition . The first one is to collect the initial time and the second one to collect the end time. I stored the difference between (Time=end-start)... (8 Replies)
Discussion started by: ENG_MOHD
8 Replies

10. Shell Programming and Scripting

awk loop using array:wish to store array values from loop for use outside loop

Here's my code: awk -F '' 'NR==FNR { if (/time/ && $5>10) A=$2" "$3":"$4":"($5-01) else if (/time/ && $5<01) A=$2" "$3":"$4-01":"(59-$5) else if (/time/ && $5<=10) A=$2" "$3":"$4":0"($5-01) else if (/close/) { B=0 n1=n2; ... (2 Replies)
Discussion started by: klane
2 Replies
Jcode::Nihongo(3pm)					User Contributed Perl Documentation				       Jcode::Nihongo(3pm)

I3/4Ao
       Jcode - AEuEU,iE,>>u1/2,1cYIYoYEYe

3uIx
	use Jcode;
	#		 _
	# ,A1/4oxaex<<x.x
	Jcode::_onvert($str_ $ocode, $icode, "z");
	# xax.x xIYaYOY,YSY YE>>O,bxCia
	print Jcode->new($str)->h2z->tr($from, $to)->utf8;

AaIA			  _
       Jcode.pmxIYaYOY,YSY YEAaxEYcYxYi_1/4YAxE1/23/4Iex<<xexIYcYxYii1/4YAxII3/4Eyxo
       YuYYi1/4YEx.xAExxxbx1iLYaYOY,YSY YEAaxEYcYxYii1/4YAxo>>Ex"xDx3xoxE'9|x,xCi"

	 $iso_2022_jp = Jcode->new($str)->h2z->jis;

       x3xAxexexeY"YiY~YoYExCx.xcx|iS

	 $iso_2022_jp = $str;
	 &jcode::convert($iso_2022_jp, 'jis', &jcode::getcode($str), "z");
		_
       YaYOY,YSY YExEAEeA-:-xBxIIuxxcIxIxcxaxEicJcode.pmxIxbxA"getcode()"xE "convert()"xoYuYYi1/4YEx.xAExxxbx1iL

       PerlxIYDi1/4Y,YcYox~5.8.1oE3/4axExeicJcodexIicPerl 5.8oE1BxIE,1/2aAaxEE,>>u1/2,1c
       YIYoYEYeYaY,Yai1/4YexCxcxeEncodexIYeYAYNi1/4xEx.xAEc9|xeEnxxxbx1iL

YaY1/2YAYE							       _
       AEAxE,AuUx.xExx,Axeicx3x3xCuox2xeYaY1/2YAYExIA'xAEJcodeYaYOY,YSY YExoEOx.xbx1iL
		  _
       Y3YoY1YEYeY Yc

       $j = Jcode->new($str [, $_code])
	 $strx<<xeJcodeYaYOY,YSY YE$jxoA,A(R)x.xbx1iLIA1/4"AaxE$icodexoY>>YAYEx.xEx+-xixDic			     _
	 AEbIIY3i1/4YExI1/4<<AEoAaxEE1/2Aexuxixbx1iLIoIN2AC1/2xEE,>>u1/2,1cxExAxxxAExIic21/4xI getcodexo>>23/4Ex.xAEx xAxuxxiL

	 Perl 5.8.1oE1BxCxIic$icodexExIEncodex~Iy2oxCxxe xExoxEY"YoY3i1/4YCYLYoYoI3/4xa>>Ex"xbx1iL

	   $j = Jcode->new($european, 'iso-latin1');
		  _
	 YaYOY,YSY YExoE,>>uIo21/2x1xexEicEUCxEEN'1xuxixcE,>>uIox~EOxexbx1iLxCx1x<<xe "print $j->euc"xEx1xeAaxixexEic"print $j"xExCxxbx1iL

	 YeYOYiYiYoY1AIx.
	   Y1Y<<Yei1/4AIxIAaxixexEicoE21/4xIxex|xEYeYOYiYiYoY1xoAIx>>xbx1iL

	    Jcode->new($str);
			  _
	   x3xixIxUxoxI3/4 x.>>b'OxoAaIox.xbx1iLx1/2xIA_1/2bxEx.xAEic$strxIAIx1/2xIxaxIx~
	   EN'1xuxixbx1iExcxeoOILic$strxIjcodeYaYOY,YSY YExE"tiexuxixe"xIxCx1iEiL

       $j->set($str [, $icode]) 				       _
	 $jxIAEaEoE,>>uIoxE$_trxoY>>YAYEx.xbx1iL.<<xeEOx.JcodeYaYOY,YSY YExo>>Ex|xExxE
	 EOIoxCx1iEYaYOY,YSY YExoA,A(R)x1xe>>b'OxEYaYaYexIAaIoxExExexbx1iEiL

	  # mailboxxoSJIS.A1/4oxEEN'1
	  my $jconv = new Jcode;
	  $/ = 00;
	  while(<>){
	      print $jconv->set($_)->mime_decode->sjis;
	  }

       $j->append($str [, $icode]);
	 $jxIAEaEoE,>>uIoxE$strxo2Ax"xbx1iL

       $j = jcode($str [, $icode]);
	 Jcode->new() xIA>>1/2I.AiLoE21/4xIxex|xExCxxbx1i"

	  $sjis = jcode($str)->sjis;

       E,>>uIoxIY"YoY3i1/4YE

       oiEIxEic$j->encodedxEx1xex3xExCencodedxEEN'1xuxixcE,>>uIoxoAEAxbx1iL

       $sjis = $j->sjis
       $euc = $j->euc
       $jis = $j->jis
       $sjis = $j->sjis
       $ucs2 = $j->ucs2
       $utf8 = $j->utf8
	 1/4<<IAxCx.xcx|iL WYCIWYG = What you code is what you get :)

       $iso_2022_jp = $j->iso_2022_jp		     _
	 "$j->h2z->jis"xEAE+-x,xCx1iL E3/43NY<<YExI9| A(C)AaxEA'3NxEEN'1xuxixbx1iL

	 Perl 5.8.1oE1BxCxIicEncodex~YuYYi1/4YEx1xexExoxEY"YoY3i1/4YCYLYoYoI3/4xE Y"YxYeYcY1xCxaIoINxCxxbx1iLIax"xDiS

	   $european = $j->iso_latin1; # YaY1/2YAYEI3/4INxE'-'xI'_'xEAOx'1x"xbx1

	 >>21IiSEncode::Encoderx~x3xixEAE+-x,3/4(R)u>>xo>>ExAxAExxxbx1iL

	 $j->fallback($fallback)
	   Perl 5.8.1oE1BxCxIicJcodexIAEaEoxIE,>>uIoxoUTF-8xCEY>>yx.xbx1iL ->encodingxEYbYAYxxCxxExxE,>>uxI'?'xEAOx'1x"xexixbx1x~ic
	   x3xixIEncodexCxIE,1/2aAEooixCx1iL
						    _
	     my $unistr = "x{262f}"; # +-cIUYbi1/4Y
	     my $j = jcode($unistr);  # $j->euc xI.e2IxI '?' xE
							   _
	   x3xIc9|xeEnxxxIicEncodeAE+-IIicYOY(C)i1/4YeYDYAY xo>>OAex1xex3xExCEN11xCxxbx1iL
	   AIxIEncodexIxaxIxEoi1/2ixCx1iLEOu1xIxcxaic"Jcode::FB_PERLQQ"ic "Jcode::FB_XMLCREF"ic"Jcode::FB_HTMLCREF"x~EncodexIx1/2xixexOxI
	   Y"YxYeYcY1xExExAxAExxxbx1iL

	     print $j->fallback(Jcode::FB_PERLQQ)->euc;   # 'x{262f}'
	     print $j->fallback(Jcode::FB_XMLCREF)->euc;  # '&#x262f;'
	     print $j->fallback(Jcode::FB_HTMLCREF)->euc; # '&#9775;'
									    _
	   YoYii1/4YDYeENco$Jcode::FALLBACKxEYCYOY(C)YeYExIYOY(C)i1/4YeYDYAY x~EY>>y
	   xuxixAExxxbx1xIxCicx3xIAIxoAaAEbx1xex3xExCYai1/4YDi1/4YeYxYExCxxbx1iL
										   _
	     $Jcode::FALLBACK = Jcode::FB_PERLQQ; # YCYOY(C)YeYExIYOY(C)i1/4YeYDYAY Y1Yi1/4YbxoABAe

       [@lines =] $jcode->jfold([$width, $newline_str, $kref])
	 $widthiEYCYOY(C)YeYEiS72iEEexEjcodeE,>>uIoAEaxI1OxoAbxeEOx.xbx1iL
	 $widthxIiEE3/43NiEE,>>uxIcoxCx1iLA'3NE,>>uxI2E,>>uxEx.xAEY<<Y|YoYEx.xbx1iL

	 $newline_striEYCYOY(C)YeYExI"
"iExC>>OAexuxixc2b1OE,>>ux~2Axixexbx1iL AbxeEOxuxixcA'1OxoYeY1YExCEOx.xbx1iL

	 Perl 5.8.1oE1BxI3EOIUxIouco$krefxEEUCxIE,>>uIoxICUIoYeYOYiYiYoY1xo AIx1x3xExCic'EoxAaxE1OAE~9|OAS1/2eIyiExOxe21/4x~xeiExo1Ox"xbx1iL

       $length = $jcode-_jlength();
	 YDYxYEA1xCxIxEx icA'3NE,>>uxaoiE,>>uxEx.xAEcox"xc3/4i1cxIE,>>ucoxoEOx.xbx1iL

       MIME::Base64xo>>Ex|YaY1/2YAYE

       21/4uxIYaY1/2YAYExo>>Ex|xExIicMIME::Base64x~E~IxxCx1iLYxYoY1YEi1/4YexIA+-1/2axE

	  perl -MCPAN -e 'CPAN::Shell->install("MIME::Base64")'

       xEx.xbx1iLxa>>ExxxIPerlx~5.6oE1BxCxcxexExeicMIME::Base64xI YDYoYEYexuxixAExxxexIxCicYxYoY1YEi1/4YexIE~IxxIxcxexbx>>xoiL

       $mime_header = $j->mime_encode([$lf, $bpl])
	 $strxoRFC1522xExcxeMIME-HeaderxEEN'1x.xbx1iL$lfxo>>OAex1xexEic 1OxIAbxeEOx.xE$lfx~>>Exixixbx1iEYCYOY(C)YeYEiS
iEiL
	 $bplxo>>OAex1xexEicAbxeEOx1YDYxYEcoxE$bplx~>>Exixixbx1iEYCYOY(C)YeYEiS76i" x3xIcoAIxI76oE21/4xCxEx+-xixDxExexbx>>xoiEiL

	 Perl 5.8.1oE1BxCxIicoE21/4xIxex|xEx.xAExaMIME HeaderY"YoY3i1/4YEx~xCxxbx1iS

	   $mime_header = $j->MIME_Header;

	 x3xI3/4i1c$mime_headerxIIaxeAIxIMIME-B-encoded UTF-8xExExexbx1iL oiEyic"$j->mime_encode()"xIMIME-B-encoded ISO-2022-JPxoEOx.xbx1iL
	 oC9|axIxUxExoxExIYai1/4Yei1/4xIxExAxexaYuYYi1/4YEx.xAExxxbx1iL

       $j->mime_decode;_
	 JcodeYaYOY,YSY YExIAEaEoE,>>uIoxoMIME-HeaderYCY3i1/4YEx.xbx1iLPerl 5.8.1 oE1BxExeicoE21/4xIxex|xEx.xAEAE+-x,x3xEx~xCxxbx1iS

	   Jcode->new($str, 'MIME-Header');
						_
	 x3xAxexI3/4i1cicISO-2022-JPxAx+-xCxIxEx UTF-8xExExExaAD+-bx.xAExaxeic xuxexEMIME B EncodingxIxBxExexoMIME Q EncodingxExaAD+-bx.xAExxxe
	 xIxCicPerl 5.8.1oE1BxCxcxixDx3xAxexo>>Ex|xUxxCx.xcx|iL

       E3/43N c<<ca A'3N

       $j->h2z([$keep_dakuten])
	 X201Y<<YEiEE3/43NiExoX208Y<<YEiEA'3NiExEEN'1x.xbx1iL $keep_dakutenxEccAIxoY>>YAYEx1xexEicAuAAxox1/2xIxbxbxEx.xbx1
	 (x3xixIxAxbxeiciOY<<iUi<<ixxIiOY~ixxEEN'1xuxixoxEx1/2xIxbxb xExExexExxx|x3xExCx1)

	 $j->nmatchxoAIx,xAEYbYAYAx.xccoxo1/4eAEAxCxxbx1iL

       $j->z2h
	 X208Y<<YEiEA'3NiExoX201Y<<YEiEE3/43NiExEEN'1x.xbx1iL

	 $j->nmatchxoAIx,xAEYbYAYAx.xccoxo1/4eAEAxCxxbx1iL

       Auu~E1/2,1/2Y"YBYaYii1/4Yc

       "->m()"xE"->s()"xo>>Ex|xExIicPerl 5.8.1oE1Bx~ E~IxxCx1iL

       $j->tr($from, $t_, $opt);
	 JcodeYaYOY,YSY YExE"tr/$from/$to/"xoA~INx.xbx1iL$fromxE$toxI EUC-JPxIE,>>uIoxCx1iLPerl 5.8.1oE1BxCxIicflagEOxxIUTF-8E,>>uIo
	 xa1/4ox+-EOx+-xbx1iL

	 $optxoY>>YAYEx1xexEic"tr/$from/$to/$opt"x~A~INxuxixbx1iL$optxI 'c'ic'd'xcxexxxIx1/2xixexIAExB1cxix>>xCxEx+-xixDxExexbx>>xoiL

	 $j->nmatchxoAIx,xAEYbYAYAx.xccoxo1/4eAEAxCxxbx1iL

	 Perl 5.8.1oE1BxCxIictrxI.A1/4oxE,ixexIxcxAxc3/4i1cxE->error_trxoAIx,xAEic $@xo1/4eAEAxCxxbx1iL

	 oE21/4xIYaY1/2YAYExIPerl 5.8.1oE1BxCxIxBIoIN2AC1/2xCx1iL

       $j->s($patter, $replace, $opt);
	 ,Ai1xE"s/$pattern/$replace/$opt"xoA~INx.xbx1iL$optxIAuu~E1/2,1/_YaYxY.YcYoxE
	 AE+-x,xCx1iLAuu~E1/2,1/2xIYaYxY.YcYoxExAxxxAExIperlrexo>>23/4Ex xAxuxxiL
					       _
	 "$j->tr()"ic"$j->s()"xIx1/2xIYaYOY,YSY YE1/4<<cExoEOx1xIxCic oE21/4xIxex|xEAaoixoIc.exCxxbx1iL

	   $j->tr("A-Z", "a-z")->s("foo", "bar");

       [@match = ] $j->m($pattern, $opt);			  _
	 "m/$patter/$opt"xoA~_Nx.xbx1iLx3xIYaY1/2YAYExIiEYaYOY,YSY YExoEOxuxExxiE xIxCic"$j->s()"xIxex|xEYaY1/2YAYExoIc.exCx-
	 xExxx3xExEAioOx.xAEx xAxuxxiL

	 Auu~E1/2,1/2xI.A1/4oxE,ixexIxcxAxc3/4i1cic->error_mic->error_sxoAIx,xAE $@xo1/4eAEAxCxxbx1iL

       YxYoY1YcYoY1ENco
			 _			   _
       xax.J_odeYaYOY,YSY YExIY_YoY1Y_YoY1ENcoxEYcY Y>>Y1x.xcxxxExeicA3/4AUx1/2xixe
       xEYcY Y>>Y1x1xexIxCxIxEx icYcY Y>>Y1YaY1/2YAYExoIoINx.xbx.xcx|iEx3xix3/4OOP xCx1iEiL

       >>21IxbxCxEicJcodexIiEoiEIAaxEEyEixCxcxeiEYIYAY.YaYeYOYiYiYoY1xIAaxixexEic
       CUI_YeYOYiYiYoY1xo>>Ex|x3xExCicY1YOi1/4YExooCA~21/2x.xAExxxbx1iE1/4AoYxIxEx3xiic
       YcY Y>>Y1YaY1/2YAYExo>>Ex|,Axex3xIx3xExoAIxeE~IxxIxcxexbx>>xoi" xax|oiAU xxxxxbx1x~icx3xixIOOPxExIxCx1iEiL

       Perl 5.8.1oE1BxCxIicYIYAY.YaYeYOYiYiYoY1xo>>Ex|xex|xEEN11xuxixbx.xciL x3xixExexeicJcodexI3EAYxIxaxIx1x'x 'EA+-xExExexbx1iL

       $j->r_str
	 EUCE,>>uIoxOxIYeYOYiYiYoY1iL

	 Perl 5.8.1oE1BxCxIUTF-8YOYeYoxII(C)xAxcUTF-8E,>>uIoxOxIYeYOYiYiYoY1xCx1iL

       $j->icode
	 A3/49|axIAaoixExax+-xeAEbIIE,>>uY3i1/4YEiL

       $j->nmatch
	 YbYAYAx.xccoiE$j->trAuxo>>ExAxcxExiEiL

YuYOYei1/4YAYo
       ($code, [$nmatch]) = getcode($str)
	 $strxIE,>>uY3i1/4YExoEOx.xbx1iLEOxeY3i1/4YExIoE21/4xIAIxexCx1iL

	  ascii   Ascii iEAEuEU,iY3i1/4YExo'bxbxExxiE
	  binary  Binary iEYAEYY1YEYOYiYxYexCxIxExxiE
	  euc	  EUC-JP
	  sjis	  SHIFT_JIS
	  jis	  JIS (ISO-2022-JP)
	  ucs2	  UCS2 (Raw Unicode)
	  utf8	  UTF8

	 Y1Y<<Yei1/4Y3YoYAEYY1YExIAaxixexECUIoY3YoYAEYY1YExo>>Ex|xEic2cE,>>uE~xI
	 Y3i1/4YEx~,<<xAx<<xAxcxIx<<xaEOx.xbx1iL3/4axIEyxC1/2OxUxcxex|xEic$strxI$str xCxa11/2xxxbx>>xoiL

	 jcode.pl IoIN1/4OxIEyxOiS x3xI'OcoxIjcode::getcode()xE100%3/4aoI,B'1x~ xcxexbx1iLi1/2i1/2xbxcicxUxU100%i"

	  * IaxeAIx~CUIoxIxExicx1/2xI1/2cEOxIuOxExExexbx1i"
	    jcode::getcode()xI$nmatchxooC1/2exEEOx.xbx1iL

	  * jcode::getcode()xIicEUCE,>>uxESJISE,>>uxIcox~Aux.xxxExic'undef'xo
	    EOx.xbx1iL Jcode::getcode()xIEUCxoEOx.xbx1iLx3xixIJcode.pmxExI
	    Aae'Ox~xExxxcxaxCx1iL

       Jcode::convert($str, [$ocode, $icode, $opt])
	 $strxo$ocodexC>_OAex.xcE,>>uY3i1/4YExEEN'1x.xbx1iL$icodexa>>OAex1xexEic AEbIIE,>>uIoxoget-
	 code()xCYAYSYAY x1xeAaxixexEic$icodexE23/4Aex.xbx1iL 3/4axIEyxC1/2OxUxcxex|xEic$strxI$strxCxa11/2xxxbx>>xoiL

	 jcode.pl IoIN1/4OxIEyxOiS x3xI'OcoxIjcode::convert()xE100%3/4aoI,B'1x~ xcxexbx1ia

YDYo
       Perlx~5.8.1oE1BxI3/4i1cicJcodexIEncodexIYeYAYNi1/4xEx.xAEc9|xeEnxxxbx1iL xAxbxeicJcodexIEncodeAEaxIYDYoxI+-AE9|Axo1/4ox+-xbx1iL

1/4O1/4 							  _
       x3xIYNYAY+-i1/4Y,xIicAEouiicYCY9|YxYox1/2x.xAEY3i1/4YExIAcx xIAAxCic 2IAa IAAu
       <utashiro@iij.ad.jp>>>axIPerl4YeYxYOYeYejcode.plxEEexAxAExxxbx1iL
						    _									   _
       Acoe Ci'o <ohzaki@iod.ricoh.co.jp>>>axIic3<<E xIEo3/4ixE1/2e'uxIAE3~x<<xe Auu~E1/2,1/2xoEaxxcx2xe1/4e1/2ox+-xox.xAEx xixbx.xciL

       makamaka@donzoko.net xI JEncode xExIicJcodexEEncodexoxEx|I>>1cxux>>xixD xxxxx<<AcENAcx-
       xE.1/41/4"xo1/4ox+-xbx.xciLxbxcicEUAEuEU,iYbYEYaYcYexa'oALx.xAE xxxcxAxxbx.xciL

       x1/2x.xAEJcode ML <jcode5@ring.gr.jp>xI3SxuxoiLx3xIEyALxEx.xExIic x3x3xbxC'oA(R)x.xEx<<xAxcx3xExCx.xcx|iL

>>21I
       Encode

       <http://www.iana.org/assignments/character-sets>

Aooi,c
       Copyright 1999-2005 Dan Kogai <dankogai@dan.co.jp>

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.8.8							    2005-02-19						       Jcode::Nihongo(3pm)
All times are GMT -4. The time now is 02:54 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy