This can be seen in action on this page: http://www.ruddwire.com/friendly-data/naics-explorer/, in the NAICS search box.

 
#!/usr/bin/perl
 
use strict;
use DBI();
use CGI qw(:standard);
 
 
my $dbh;
my $sth;
my $mySQL;
my $result = '({"failure":1})';
 
#QUERY PARAMS
my $q;
 
 
 
my $ref;
my $table = "";
my $tableRow;
 
my $query = new CGI;
 
 
 
 
 
if($query->param()){
 
 
    $q = $query->param('q');
    $q =~ s/\s+/%/;  # REPLACE SPACES WITH WILD CARD CHARACTER, CAUSES TO SEARCH FOR ALL WORDS, NOT JUST PHRASE
 
    ### Connect to the database.
	my $dbh = DBI->connect("DBI:mysql:database=***DBNAME***;host=localhost",
                         "***USERNAME***", "***PASSWORD***",
                         {'RaiseError' => 1});
 
    	### GET INDUSTRY NAME AND CODE
    	$mySQL = "SELECT code,industry FROM naics2007IndustryIndex WHERE industry LIKE ? ORDER BY industry";
 
 
     $sth = $dbh->prepare($mySQL);
     $sth->execute("%".${q}."%");
 
      while ($ref = $sth->fetchrow_hashref()) {
 
		  while ((my $key, my $value) = each(%$ref)){
		  	  $value =~ s/"/\\"/g;
			  $tableRow .= "\"${value}\",";
		  }
 
		  $tableRow =~ s/,$//;
		  $tableRow = "[${tableRow}],";
 
		  $table .= $tableRow;
		  $tableRow = "";
      }
 
		$table =~ s/,$//;
 
	  	$result = '{"failure":0,"result":['.$table.']}';         
 
}### END IF QUERY
 
 
 
print "Content-type: text/javascript; charset=iso-8859-1\n\n";
 
print $result;
 
exit(0);

This is where we have fun with captions:

Professor Pretzel

Mr. Serious Munchies

Midtown Mangeur

A Gentleman Through Time

The Mystery Guest on Park Avenue

Downtowner will not stop in Midtown!

Just follow the suits, mister.

Just follow the suits, lady.

Hot Dogs and Bowties

Nice coat!

Mr Snappy.

This can be seen in action on this page: http://www.ruddwire.com/friendly-data/naics-explorer/.

#!/usr/bin/perl
 
use strict;
use DBI();
use CGI qw(:standard);
 
 
my $dbh;
my $sth;
my $mySQL;
my $result = '({"failure":1})';
 
#QUERY PARAMS
my $strLn;
my $classification;
my $getDef;
my $getIndus;
 
my $naicsMatch = "";
my $countMatch = "";
my @subClasses;
my $ref;
my $table = "";
my $tableRow;
 
 
sub scrubInputText {
 
   my($it) = @_;
   my $shellChars = q-[&;`'\\\"\|\*\?\~<>\^\(\)\[\]\{\}\$\\n\\r]-;    #`
 
    $it =~ s/$shellChars//g;
    $it =~ s/^\s+|\s+$//g;
 
   return $it;
 
}
 
 
my $query = new CGI;
 
if($query->param()){
 
    $strLn = &scrubInputText($query->param('strLn'));
    $classification = &scrubInputText($query->param('cls'));
    $getDef = &scrubInputText($query->param('getDef'));
    $getIndus = &scrubInputText($query->param('getIndus'));
 
    ###HANDLE GROUPED SECTOR CODES, IE: 31-33
    if($classification =~ /-/){
    	@subClasses = split("-",$classification);
		$naicsMatch = "AND (";
 
		for(my $subClass = $subClasses[0]; $subClass <= $subClasses[1]; $subClass++){
    		$naicsMatch .= "code LIKE '${subClass}%' OR ";
    		$countMatch .= "code LIKE '${subClass}%' OR ";
    	}
    	$countMatch =~ s/ OR $//;
    	$naicsMatch =~ s/ OR $//;
    	$naicsMatch .= ")";
    }else{
       $naicsMatch = "AND code LIKE '${classification}%'";
    }
 
	if($strLn != 2){$countMatch = "code LIKE Concat(naics2007.code,'%')";}
 
    ### Connect to the database.
	my $dbh = DBI->connect("DBI:mysql:database=***DBNAME***;host=localhost",
                         "***USERNAME***", "***PASSWORD***",
                         {'RaiseError' => 1});
 
    if($getDef){
    	$mySQL = "SELECT definition FROM naics2007definitions WHERE code='${classification}'";
    }elsif($getIndus){
    	### GET FINAL INDUSTRY NAME
    	$mySQL = "SELECT code,industry FROM naics2007IndustryIndex WHERE code LIKE '${classification}' ORDER BY industry";
    }else{
    	### GET INDUSTRY CLASSIFICATIONS
 
 
 		$mySQL = "SELECT code,title, ".
     	"(SELECT COUNT(code) FROM naics2007IndustryIndex WHERE ".
     	"CASE naics2007.code ".
     	"WHEN '31-33' THEN (code LIKE '31%' OR code LIKE '32%' OR code LIKE '33%') ".
     	"WHEN '44-45' THEN (code LIKE '44%' OR code LIKE '45%') ".
     	"WHEN '48-49' THEN (code LIKE '48%' OR code LIKE '49%') ".
     	"ELSE code LIKE Concat(naics2007.code,'%') END) AS c".
     	" FROM naics2007 WHERE (CHAR_LENGTH(code) = $strLn OR code LIKE '__-__')".$naicsMatch;
 
    }
 
 
     $sth = $dbh->prepare($mySQL);
     $sth->execute();
 
      while ($ref = $sth->fetchrow_hashref()) {
 
		  while ((my $key, my $value) = each(%$ref)){
		  	  $value =~ s/"/\\"/g;
			  $tableRow .= "\"${value}\",";
		  }
 
		  $tableRow =~ s/,$//;
		  $tableRow = "[${tableRow}],";
 
		  $table .= $tableRow;
		  $tableRow = "";
      }
 
		$table =~ s/,$//;
 
	  	$result = '{"failure":0,"result":['.$table.']}';
 
}### END IF QUERY
 
 
 
print "Content-type: application/json; charset=iso-8859-1\n\n";
 
print $result;
 
exit(0);

I fixed this the following way (this is basically resetting the Power Management Unit — PMU):

I disconnected the computer from the power cord, and from all other cables.

I held down the power button for several seconds to turn off the computer.

I let it sit 5 minutes.

I restarted the laptop while holding down the Shift key.  This restarted the computer in Safe Mode, with the screen visible again.

After I logged in (in Safe Mode) to make sure everything was ok, I simply restarted the computer the normal way, and the screen behaved normally again.

=================================

If that doesn’t work for you, you could try these steps, documented at apple.com:

Holding down Command, Option, P, and R to reset your PRAM and NVRAM

Resetting PowerBook and iBook Power Management Unit (PMU)

http://www.nyrp.org/About/New_Leaf_Restaurant_Bar

1. Make your list of files, with complete paths, call it “imgList.txt”. Put every file on a new line.
2. Write a small awk script with the following 1 line:
   { printf(”cp %s images/\n”,$0);}
3. Save the script as “copyList.awk”
4. Do the following command:
   awk -f copyList.awk imgList.txt | sh

Brief explanation of the awk script:

• %s means you’re putting a string in that spot of your output,
• $0 is the string you’re putting there
• $0 is a match for each line in the file “imgList.txt”
• images/ is the directory to copy your files to (in this example relative to where the command will be run from – can be absolute, of course)
• \n stands for new line

brief explanation of the command:

• awk executes the awk code found in “copyList.awk” on the lines found in “imgList.txt” and pipes the output to the shell ( | sh).

HTML character entity, wrong:
formElement.value = "Dirección";
You get: Dirección

Unicode character code, correct:
formElement.value = "Direcci\u00F3n";
You get: Dirección

Unicode character charts are located here: http://www.unicode.org/charts/. The chart you will most likely need is the Latin-1 chart.  Character codes must be preceded by \u. That is, character code 00F3 is written in JavaScript as \u00F3.

Hope this helps.

Anti-Terrorist And Monetory Crimes Division
FBI Headquarters In Washington, D.C.
Federal Bureau Of Investigation
J. Edgar Hoover Building
935 Pennsylvania Avenue, NW Washington, D.C. 20535-0001
Website: www.fbi.gov

Attn: Beneficiary,

This is to Officially inform you that it has come to our notice and we have thoroughly completed an Investigation with the help of our Intelligence Monitoring Network System that you legally won the sum of $800,000.00 USD from a Lottery Company outside the United States of America. During our investigation we discovered that your e-mail won the money from an Online Balloting System and we have authorized this winning to be paid to you via a Certified Cashier’s Check.

Normally, it will take up to 10 business days for an International Check to be cashed by your local bank. We have successfully notified this company on your behalf that funds are to be drawn from a registered bank within the United States Of America so as to enable you cash the check instantly without any delay, henceforth the stated amount of $800,000.00 USD has been deposited with Bank Of America.

We have completed this investigation and you are hereby approved to receive the winning prize as we have verified the entire transaction to be Safe and 100% risk free, due to the fact that the funds have been deposited at Bank Of America you will be required to settle the following bills directly to the Lottery Agent in-charge of this transaction Which is Barclays Bank, United Kingdom. According to our discoveries, you were required to pay for the following -

(1) Deposit Fee’s ( Fee’s paid by the company for the deposit into an American Bank which is – Bank Of America )

(2) Cashier’s Check Conversion Fee ( Fee for converting the Wire Transfer payment into a Certified Cashier’s Check )

(3) Shipping Fee’s ( This is the charge for shipping the Cashier’s Check to your home address and this fee includes Insurance )

The total amount for everything is $300.00 (Three Hundred-US Dollars). We have tried our possible best to indicate that this $300.00 should be deducted from your winning prize but we found out that the funds have already been deposited at Bank Of America and cannot be accessed by anyone apart from you the winner, therefore you will be required to pay the required fee’s to the Agent in-charge of this transaction via Western Union Money Transfer

In order to proceed with this transaction, you will be required to contact the agent in-charge ( MR. GARY HUSTON) via e-mail. Kindly look below to find appropriate contact information:

NAME: MR. GARY HUSTON
OFFICE ADDRESS: DIRECTORS FOR FOREIGN OPERATIONS AND SWIFT CARD PAYMENT CENTRE,
15th/16th New Scotland Yard,Broadway,London,SW1H 0BG,UNITED KINGDOM
Email : huston.swiftcent@live.co.uk
Cell : +447956337992

You will be required to e-mail him with the following information for verification:

FULL NAME:
ADDRESS:
CITY:
STATE:
ZIP CODE:
DIRECT CONTACT NUMBER:

You will also be required to request Western Union details on how to send the required $300.00 in order to immediately ship your prize of $800,000.00 USD via Certified Cashier’s Check drawn from Bank Of America, also include the following transaction code in order for him to immediately identify this transaction : EA2948-910.

This letter will serve as proof that the Federal Bureau Of Investigation is authorizing you to pay the required $300.00 ONLY to MR. GARY HUSTON via information in which he shall send to you, if you do not receive your winning prize of $800,000.00 we shall be held responsible for the loss and this shall invite a penalty of $3,000 which will be made PAYABLE ONLY to you (The Winner).

Mr. Bill Nicholson
Special Agent.
Washington DC FBI.
Room, 7367
J. Edgar Hoover Building
935 Pennsylvania Avenue, NW
Washington, D.C. 20535-0001