Hi, if you're reading a config file to get the string maybe Config::General is handy.
HTH Martin On Sun, 29 Apr 2007 14:27:52 +0100 Goksie <[EMAIL PROTECTED]> wrote: > hello, > > Can someone help me correct this code. > > if i print, it only print the first line. > > Goksie > > #!/usr/bin/perl > use strict; > > my $test = > 'NAS-IP-Address = 192.168.42.1 > Quintum-NAS-Port = "0 0/0/c1dc2a26" > NAS-Port-Type = Async > User-Name = "192.168.42.8" > Called-Station-Id = "8600508208079" > Calling-Station-Id = "" > Acct-Status-Type = Stop > Acct-Delay-Time = 0 > Acct-Input-Octets = 0 > Acct-Output-Octets = 0 > Acct-Session-Id = "000000C0000012F5" > Acct-Session-Time = 245 > Acct-Input-Packets = 0 > Acct-Output-Packets = 0 > Service-Type = Login-User > Quintum-AVPair = "h323-ivr-out=ACCESSCODE:8600508208079" > Quintum-h323-conf-id = "34363262 65383833 32656366 00340000" > Quintum-AVPair = "h323-incoming-conf-id=34363262 65383833 32656366 > 00340000" > Quintum-h323-gw-id = "ng-la" > Quintum-h323-call-origin = "answer" > Quintum-h323-call-type = "VoIP" > Quintum-h323-setup-time = "22:58:10.220 UTC Sun Apr 22 2007" > Quintum-h323-connect-time = "22:59:09.550 UTC Sun Apr 22 2007" > Quintum-h323-disconnect-time = "22:59:09.550 UTC Sun Apr 22 2007" > Quintum-h323-remote-address = "192.168.42.8" > Quintum-h323-disconnect-cause = "1f" > Quintum-h323-voice-quality = "0" > Quintum-Trunkid-In = "192.20.42.8" > Quintum-Trunkid-Out = "10.15.115.79" > h323-incoming-conf-id = "34363262 65383833 32656366 00340000" > Client-IP-Address = 192.168.42.1 > Acct-Unique-Session-Id = "87d380e1881d226c" > Timestamp = 1177282824'; > > my %test = my($fname, $fvalu)=split(/=/, $test); > foreach(keys %test) > { > print "$_ --- $test{$_}"; > } > > OUTPUT > NAS-IP-Address --- 192.168.42.1 > Quintum-NAS-Port --- > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/