Recent

• Working PS3 Jailbreak 3.65 And 3.66
• ExtaBit Premium Accounts and Cookies
• Steam Wallet Hack - Money Adder & Hack v3
• Empires & Allies Hack Cheat Trainer v5.4.1
• Eve Onnline 60 Days Time Card Generator v2
• Xbox Lve Generator v3
• Better way to get content via jQuery $.get()
• Free CarTown Blue Points Generator and CarTown Templates
• Steam Wallet Hack 2012
• Diablo 3 error 37 & error 3006 fix

Popular

• XBOX POINTS GENERATOR - MICROSOFT POINTS GENERATOR v1.2012
• 11 may 2012 premium uploading accounts 100% working
• Free Microsoft Points
• Free Microsoft Points - Microsoft Points Generator - Xbox Live Codes 2012
• Car Town Free Blue Points Hack
• Free CarTown Blue Points Generator and CarTown Templates
• Free Microsoft Points
• Simple Days Purger
• Sharecash Downloader Bypass Surveys New 05/2012
• PAYPAL REMOVE ACCESS LIMITED ACCOUNT 100% Working

Pastable version of Help make my code blocks better and shorter

<pre class='prettyprint' language='perl'>#&gt;&gt;if Record Type is vehicle---------------&lt;&lt; if($filename =~ m/$infile3/){ #&gt;&gt;process vehicle records my $vehicle_file = $infile3; open VIINFILE, &quot;&lt;$vehicle_file&quot; or die &quot;Couldn't open file handle -- $vehicle_file for read. $!\n&quot;; #logNorm(&quot;&quot;); #&gt;&gt;remove file extention $infile3 =~ s/\.dat//i; open VIOUTFILE, &quot;&gt;$infile3.$expext&quot; or die &quot;Couldn't open file handle -- $infile3.$expext for writing : $!\n&quot;; #logNorm(&quot;&quot;); open VIOUTFILE2, &quot;&gt;$infile3.$outext&quot; or die &quot;Couldn't open file handle -- $infile3.$outext for writing : $!\n&quot;; #logNorm(&quot;&quot;); #&gt;&gt;loop through vehicle Records while(&lt;VIINFILE&gt;){ my ($record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl,$dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name ) = split /\t/, $_; #&gt;&gt;search for the word removed in name fields if(grep (/$pattern/i,$lname)){ #&gt;&gt;transform/replace the field $lname = $newtext; $fname = $newtext; $mname = $newtext; $suffix = $newtext; #logNorm(&quot;&quot;); #&gt;&gt;reconstruct the record in tab-delimited format $_ = join(&quot;\t&quot;, $record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl, $dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name); #&gt;&gt;print to screen STDOUT print &quot;vehicle Record removed:\n&quot;; print &quot;$_&quot;; #&gt;&gt;print to temp file print VIOUTFILE &quot;$_&quot; or die &quot;Error writing $infile3.$expext: $!\n&quot;; }elsif(grep (/$pattern/i,$fname)){ $lname = $newtext; $fname = $newtext; $mname = $newtext; $suffix = $newtext; #logNorm(&quot;&quot;); #&gt;&gt;reconstruct the record in tab-delimited format $_ = join(&quot;\t&quot;, $record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl, $dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name); #&gt;&gt;print to screen STDOUT print &quot;vehicle Record removed:\n&quot;; print &quot;$_&quot;; #&gt;&gt;print to temp file print VIOUTFILE &quot;$_&quot; or die &quot;Error writing $infile3.$expext: $!\n&quot;; }elsif(grep (/$pattern/i, $mname)){ $lname = $newtext; $fname = $newtext; $mname = $newtext; $suffix = $newtext; #logNorm(&quot;&quot;); #&gt;&gt;reconstruct the record in tab-delimited #&gt;&gt; format $_ = join(&quot;\t&quot;, $record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl, $dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name); #&gt;&gt;print to screen STDOUT print &quot;vehicle Record removed:\n&quot;; print &quot;$_&quot;; #&gt;&gt;print to temp file print VIOUTFILE &quot;$_&quot; or die &quot;Error writing $infile3.$expext: $!\n&quot;; }elsif(grep (/$pattern/i, $suffix)){ $lname = $newtext; $fname = $newtext; $mname = $newtext; $suffix = $newtext; #logNorm(&quot;&quot;); #&gt;&gt;reconstruct the record in tab-delimited #&gt;&gt; format $_ = join(&quot;\t&quot;, $record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl, $dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name); #&gt;&gt;print to screen STDOUT print &quot;vehicle Record removed:\n&quot;; print &quot;$_&quot;; #&gt;&gt;print to temp file print VIOUTFILE &quot;$_&quot; or die &quot;Error writing $infile3.$expext: $!\n&quot;; }elsif($lname !=~ grep (/$pattern/i, $lname) ){ #&gt;&gt; Not removed #&gt;&gt;transform/replace the field $lname; $fname; $mname; $suffix; #logNorm(&quot;&quot;); #&gt;&gt;reconstruct the record in tab-delimited format $_ = join(&quot;\t&quot;, $record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl, $dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name); #&gt;&gt;print to screen STDOUT print &quot;vehicle Record:\n&quot;; print &quot;$_&quot;; #&gt;&gt;print to temp file print VIOUTFILE2 &quot;$_&quot; or die &quot;Error writing $infile3.$outext: $!\n&quot;; }elsif($fname !=~ grep (/$pattern/i, $lname) ){ #&gt;&gt; Not removed #&gt;&gt;transform/replace the field $lname; $fname; $mname; $suffix; #logNorm(&quot;&quot;); #&gt;&gt;reconstruct the record in tab-delimited format $_ = join(&quot;\t&quot;, $record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl, $dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name); #&gt;&gt;print to screen STDOUT print &quot;vehicle Record:\n&quot;; print &quot;$_&quot;; #&gt;&gt;print to temp file print VIOUTFILE2 &quot;$_&quot; or die &quot;Error writing $infile3.$outext: $!\n&quot;; }elsif($mname !=~ grep (/$pattern/i, $lname) ){ #&gt;&gt; Not removed #&gt;&gt;transform/replace the field $lname; $fname; $mname; $suffix; #logNorm(&quot;&quot;); #&gt;&gt;reconstruct the record in tab-delimited format $_ = join(&quot;\t&quot;, $record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl, $dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name); #&gt;&gt;print to screen STDOUT print &quot;vehicle Record:\n&quot;; print &quot;$_&quot;; #&gt;&gt;print to temp file print VIOUTFILE2 &quot;$_&quot; or die &quot;Error writing $infile3.$outext: $!\n&quot;; }elsif($suffix !=~ grep (/$pattern/i, $lname) ){ #&gt;&gt; Not removed #&gt;&gt;transform/replace the field $lname; $fname; $mname; $suffix; #logNorm(&quot;&quot;); #&gt;&gt;reconstruct the record in tab-delimited format $_ = join(&quot;\t&quot;, $record_type, $vehicle_id, $incident_num, $lname, $fname, $mname, $suffix, $dob, $age, $gender, $race, $dl, $dlstate, $home_addr, $home_city, $state, $home_zip, $home_phone, $empl_addr, $emp_city, $emp_state, $emp_zip, $emp_phone, $org_name); #&gt;&gt;print to screen STDOUT print &quot;vehicle Record:\n&quot;; print &quot;$_&quot;; #&gt;&gt;print to temp file print VIOUTFILE2 &quot;$_&quot; or die &quot;Error writing $infile3.$outext: $!\n&quot;; } } close VIINFILE or die &quot;Couldn't close file handle: $!\n&quot;; #logNorm(&quot;&quot;); close VIOUTFILE or die &quot;Couldn't close file handle: $!\n&quot;; #logNorm(&quot;&quot;); close VIOUTFILE2 or die &quot;Couldn't close file handle: $!\n&quot;; #logNorm(&quot;&quot;); }</pre> <a href="http://www.refactormycode.com/codes/1292-help-make-my-code-blocks-better-and-shorter" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>