Refactor
:my
=>
'code'
Codes
Refactorings
Popular
Best
Submit
Spam
Account
Logout
Login
JavaScript doesn't seem to be activated, expect things to be ugly and sloppy!
Learn How to Create Your Own Programming Language
createyourproglang.com
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'>#>>if Record Type is vehicle---------------<< if($filename =~ m/$infile3/){ #>>process vehicle records my $vehicle_file = $infile3; open VIINFILE, "<$vehicle_file" or die "Couldn't open file handle -- $vehicle_file for read. $!\n"; #logNorm(""); #>>remove file extention $infile3 =~ s/\.dat//i; open VIOUTFILE, ">$infile3.$expext" or die "Couldn't open file handle -- $infile3.$expext for writing : $!\n"; #logNorm(""); open VIOUTFILE2, ">$infile3.$outext" or die "Couldn't open file handle -- $infile3.$outext for writing : $!\n"; #logNorm(""); #>>loop through vehicle Records while(<VIINFILE>){ 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/, $_; #>>search for the word removed in name fields if(grep (/$pattern/i,$lname)){ #>>transform/replace the field $lname = $newtext; $fname = $newtext; $mname = $newtext; $suffix = $newtext; #logNorm(""); #>>reconstruct the record in tab-delimited format $_ = join("\t", $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); #>>print to screen STDOUT print "vehicle Record removed:\n"; print "$_"; #>>print to temp file print VIOUTFILE "$_" or die "Error writing $infile3.$expext: $!\n"; }elsif(grep (/$pattern/i,$fname)){ $lname = $newtext; $fname = $newtext; $mname = $newtext; $suffix = $newtext; #logNorm(""); #>>reconstruct the record in tab-delimited format $_ = join("\t", $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); #>>print to screen STDOUT print "vehicle Record removed:\n"; print "$_"; #>>print to temp file print VIOUTFILE "$_" or die "Error writing $infile3.$expext: $!\n"; }elsif(grep (/$pattern/i, $mname)){ $lname = $newtext; $fname = $newtext; $mname = $newtext; $suffix = $newtext; #logNorm(""); #>>reconstruct the record in tab-delimited #>> format $_ = join("\t", $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); #>>print to screen STDOUT print "vehicle Record removed:\n"; print "$_"; #>>print to temp file print VIOUTFILE "$_" or die "Error writing $infile3.$expext: $!\n"; }elsif(grep (/$pattern/i, $suffix)){ $lname = $newtext; $fname = $newtext; $mname = $newtext; $suffix = $newtext; #logNorm(""); #>>reconstruct the record in tab-delimited #>> format $_ = join("\t", $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); #>>print to screen STDOUT print "vehicle Record removed:\n"; print "$_"; #>>print to temp file print VIOUTFILE "$_" or die "Error writing $infile3.$expext: $!\n"; }elsif($lname !=~ grep (/$pattern/i, $lname) ){ #>> Not removed #>>transform/replace the field $lname; $fname; $mname; $suffix; #logNorm(""); #>>reconstruct the record in tab-delimited format $_ = join("\t", $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); #>>print to screen STDOUT print "vehicle Record:\n"; print "$_"; #>>print to temp file print VIOUTFILE2 "$_" or die "Error writing $infile3.$outext: $!\n"; }elsif($fname !=~ grep (/$pattern/i, $lname) ){ #>> Not removed #>>transform/replace the field $lname; $fname; $mname; $suffix; #logNorm(""); #>>reconstruct the record in tab-delimited format $_ = join("\t", $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); #>>print to screen STDOUT print "vehicle Record:\n"; print "$_"; #>>print to temp file print VIOUTFILE2 "$_" or die "Error writing $infile3.$outext: $!\n"; }elsif($mname !=~ grep (/$pattern/i, $lname) ){ #>> Not removed #>>transform/replace the field $lname; $fname; $mname; $suffix; #logNorm(""); #>>reconstruct the record in tab-delimited format $_ = join("\t", $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); #>>print to screen STDOUT print "vehicle Record:\n"; print "$_"; #>>print to temp file print VIOUTFILE2 "$_" or die "Error writing $infile3.$outext: $!\n"; }elsif($suffix !=~ grep (/$pattern/i, $lname) ){ #>> Not removed #>>transform/replace the field $lname; $fname; $mname; $suffix; #logNorm(""); #>>reconstruct the record in tab-delimited format $_ = join("\t", $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); #>>print to screen STDOUT print "vehicle Record:\n"; print "$_"; #>>print to temp file print VIOUTFILE2 "$_" or die "Error writing $infile3.$outext: $!\n"; } } close VIINFILE or die "Couldn't close file handle: $!\n"; #logNorm(""); close VIOUTFILE or die "Couldn't close file handle: $!\n"; #logNorm(""); close VIOUTFILE2 or die "Couldn't close file handle: $!\n"; #logNorm(""); }</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>