Smith, Derek wrote:
: I need to create a hash with a key/value pair as text:nontext
: like so:
: savecrash as the key and 1 as the value
:
: savecrash_dir as the key and /var/adm/crash as the value.
:
: for (;<SC>;) {
:
: if ( /(?i)savecrash=/ || /(?i)savecrash_dir=\W+\w+/ ) {
:
: chomp;
my( $key, $value ) = split /=/;
$vg{$key} = $value;
: $vg{$_}++;
Delete that line. You can read more about the split()
function in the perl documentation.
:
: }
:
: }
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
