<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2900.2668" name=GENERATOR></HEAD>
<BODY>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><FONT
color=#000000># Parameters passed in during an import that we probably don't
want to touch, otherwise</FONT><FONT color=#000000><FONT face="Times New Roman"
size=3> <BR></FONT><FONT face=sans-serif size=2> foreach my $attr
qw(id Creator Created LastUpdated LastUpdatedBy) {</FONT></FONT><FONT
color=#000000><FONT face="Times New Roman" size=3> <BR></FONT><FONT
face=sans-serif size=2> $params{$attr} = $args{$attr}
if ( $args{$attr} );</FONT></FONT><FONT color=#000000><FONT
face="Times New Roman" size=3> <BR></FONT><FONT face=sans-serif size=2>
}</FONT><FONT face="Times New Roman" size=3>
</FONT></FONT><BR></FONT></DIV>
<DIV dir=ltr align=left><SPAN class=500485218-01072005><FONT face=Arial
color=#0000ff size=2>It goes something like this:</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=500485218-01072005><FONT face=Arial
color=#0000ff size=2>for each string in the list "<FONT color=#000000>(id
Creator Created LastUpdated LastUpdatedBy)" assign it to the variable
attr</FONT></FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=500485218-01072005><FONT face=Arial
size=2>then get the value of that attribute from the hash table args (if it is
defined) and put it into the hash table params.</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=500485218-01072005><FONT face=Arial color=#0000ff size=2>So if
you have a ticket where id is "111", Creator is "me", and Created is "now" this
code will copy those values from the %args hast table into the %params hast
table. But it won't put LastUpdated into %params because it doesn't have a value
associated with it.</FONT></SPAN></DIV>
<DIV><SPAN class=500485218-01072005><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=500485218-01072005><FONT face=Arial color=#0000ff size=2>Check
out "Learning Perl" from O'Reilly; it does a good job explaining the basics of
perl, including variables and hash tables.</FONT></SPAN></DIV><!-- Converted from text/plain format --><FONT
face=Arial color=#0000ff size=2></FONT><BR>
<P><FONT size=2>----<BR>Perfection is just a word I use occasionally with
mustard.<BR><BR>Atom Powers<BR>Systems Administrator<BR>Pyramid Breweries
Inc.<BR>206.682.8322 x251</FONT> </P>
<DIV> </DIV><BR>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> rt-users-bounces@lists.bestpractical.com
[mailto:rt-users-bounces@lists.bestpractical.com] <B>On Behalf Of
</B>Ahalya_Nathan@mudnebr.com<BR><B>Sent:</B> Friday, July 01, 2005 9:37
AM<BR><B>To:</B> rt-users@lists.bestpractical.com;
rt-users-bounces@lists.bestpractical.com<BR><B>Subject:</B> [rt-users] Doubt in
Perl<BR></FONT><BR></DIV>
<DIV></DIV><BR><FONT face=sans-serif size=2>Hi all,</FONT> <BR><FONT
face=sans-serif size=2>I am still brushing up on my perl skills and wondering if
any of you can tell me what this piece of code does.</FONT> <BR><BR><FONT
face=sans-serif size=2># Parameters passed in during an import that we probably
don't want to touch, otherwise</FONT> <BR><FONT face=sans-serif size=2>
foreach my $attr qw(id Creator Created LastUpdated LastUpdatedBy)
{</FONT> <BR><FONT face=sans-serif size=2>
$params{$attr} = $args{$attr} if ( $args{$attr} );</FONT> <BR><FONT
face=sans-serif size=2> }</FONT> <BR><FONT face=sans-serif
size=2>Thanks,<BR>Ahalya Nathan<BR>Senior Programmer / Analyst<BR>Information
Technology, Metropolitan Utilities District <BR>(402) 449-8218 phone<BR>(402)
449-8131 fax<BR>ahalya_nathan@mudnebr.com</FONT></BODY></HTML>