[rt-users] Doubt in Perl

[Ahalya_Nathan at mudnebr.com]

Hi all,
I am still brushing up on my perl skills and wondering if any of you can 
tell me what this piece of code does.

# Parameters passed in during an import that we probably don't want to 
touch, otherwise
    foreach my $attr qw(id Creator Created LastUpdated LastUpdatedBy) {
        $params{$attr} = $args{$attr} if ( $args{$attr} );
    }
Thanks,
Ahalya Nathan
Senior Programmer / Analyst
Information Technology, Metropolitan Utilities District 
(402) 449-8218 phone
(402) 449-8131 fax
ahalya_nathan at mudnebr.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.bestpractical.com/pipermail/rt-users/attachments/20050701/a188b49a/attachment.htm>