regex and parsing

[Justin Rodino]

trying to utilise as few modules as possible, does anyone know how to
parse a line to get/set variable information? For example, here is my
line:

User="1233" Location="somewhere" Phone="1111"

and what i want to do is make variables $user=1233,
$location=somewhere, $phone=1111. There might be more than 3, there
might be less than 3 items...

Any help greatly appreciated. Thanks!

 

[Garry Short]

trying to utilise as few modules as possible, does anyone know how to
parse a line to get/set variable information? For example, here is my
line:

User="1233" Location="somewhere" Phone="1111"

and what i want to do is make variables $user=1233,
$location=somewhere, $phone=1111. There might be more than 3, there
might be less than 3 items...

Any help greatly appreciated. Thanks!

Purely to print the info out, this'll work:

1 my $a = "User=\"1233\" Location=\"somewhere\" Phone=\"1111\"";
2
3 my @fields = split / /, $a;
4 foreach $f (@fields) {
5 my ($var, $val) = split /=/, $f;
6 $val =~ s/"//g;
7 print "Var = $var, Val = $val\n";
8 }

Running it gives:
me@home:~> perl test.pl
Var = User, Val = 1233
Var = Location, Val = somewhere
Var = Phone, Val = 1111

Personally, I'd leave the quotes out. If you want to be able to use spaces
in the values, use a different record delimiter (newlines would do nicely).

HTH,

Garry

 

[Tad McClellan]

and what i want to do is make variables $user=1233,

Stop wanting that.

Want a hash instead:

$hash{user} = 1233;



See also:

http://www.plover.com/~mjd/perl/varvarname.html
http://www.plover.com/~mjd/perl/varvarname2.html
http://www.plover.com/~mjd/perl/varvarname3.html

 

[A. Sinan Unur]

(e-mail address removed) (Justin Rodino) wrote in

Here is an example line that will be read in (it might get wrapped,
but you can be assured its always one line):

<ExecutionEnvironment ExecutionContext="Admin" LogonName=""
LogonDomain="" LogonPassword="" Interactive="false"
AllowUserExecution="true" UserNotifyTimeout="false" RunForUsers="First
user who logs in" CanRunWhen="whether or not a user is logged on"
StartWindow="Normal" ScheduleRetry="true" MinConnectionSpeed="0"/>

and if the file is in XML format as you indicate, why not use
XML:arser?

C:\develop\src\misc>cat txml.pl
#! C:/Perl/bin/perl.exe -w

use diagnostics;
use strict;
use warnings;

use XML:arser;

my $p = new XML:arser(Handlers => {Start => \&handle_start});

while(<DATA>) {
$p->parse($_);
}

sub handle_start {
my $Expat = shift;
my $Element = shift;
my ($attr, $val);
while((defined ($attr = shift)) && (defined ($val = shift))) {
print $attr, " = ", '"', $val,'"', "\n";
}
}

__DATA__
<ExecutionEnvironment ExecutionContext="Admin" LogonName=""
LogonDomain="" LogonPassword="" Interactive="false"
AllowUserExecution="true" UserNotifyTimeout="false"
RunForUsers="First user who logs in"
CanRunWhen="whether or not a user is logged on" StartWindow="Normal"
ScheduleRetry="true" MinConnectionSpeed="0"/>

Note that the above is entered as a single line, but wrapped in the
newsreader.

Output:

C:\develop\src\misc>txml.pl
ExecutionContext = "Admin"
LogonName = ""
LogonDomain = ""
LogonPassword = ""
Interactive = "false"
AllowUserExecution = "true"
UserNotifyTimeout = "false"
RunForUsers = "First user who logs in"
CanRunWhen = "whether or not a user is logged on"
StartWindow = "Normal"
ScheduleRetry = "true"
MinConnectionSpeed = "0"