[30672] in Perl-Users-Digest
Perl-Users Digest, Issue: 1917 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 11 21:09:46 2008
Date: Sat, 11 Oct 2008 18:09:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 11 Oct 2008 Volume: 11 Number: 1917
Today's topics:
Re: command line with -e <ben@morrow.me.uk>
Re: command line with -e <jurgenex@hotmail.com>
GETDATA to POSTDATA <NoSPam@NoSpam.com>
Re: how to close STDIN <hjp-usenet2@hjp.at>
Re: how to close STDIN <dontmewithme@got.it>
Re: how to close STDIN <ben@morrow.me.uk>
Re: how to use system call within a cgi script <tony_curtis32@yahoo.com>
Re: how to use system call within a cgi script <john@castleamber.com>
Re: how to use system call within a cgi script <g_r_a_n_t_@dodo.com.au>
Re: how to use system call within a cgi script <g_r_a_n_t_@dodo.com.au>
Re: Loading the shell environment? <joe@inwap.com>
Re: Parsing CSV and " " sln@netherlands.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 11 Oct 2008 18:25:14 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: command line with -e
Message-Id: <q447s5-h2q.ln1@osiris.mauzo.dyndns.org>
[please trim quotations when you reply]
Quoth April <xiaoxia2005a@yahoo.com>:
> On Oct 11, 12:57 am, Ben Morrow <b...@morrow.me.uk> wrote:
> >
> > Um... you seem to be somewhat confused. Each separate invocation of perl
> > is completely separate: variables and such never carry over from one to
> > the next. If you want to execute several statements one after the other,
> > you can separate them with ; like this:
> >
> > perl -e "$_ = 2; print \"$_\n\""
> >
> > but it's usually better to put them in a file and run that.
>
> Great Ben, thanks for the very educational reply!
>
> Yes I'm kind of experiemnting, it seems to me at one point I was able
> to check what is the current value of $_ and also alter it, using the
> command line option?
I don't think so. You seem to still be misunderstanding: when perl isn't
running, there is no 'current value of $_', and each running copy of
perl has its own $_.
Ben
--
I have two words that are going to make all your troubles go away.
"Miniature". "Golf".
[ben@morrow.me.uk]
------------------------------
Date: Sat, 11 Oct 2008 12:32:41 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: command line with -e
Message-Id: <42v1f4lj7uu09dil66i5e5btk89jtuusjq@4ax.com>
April <xiaoxia2005a@yahoo.com> wrote:
>> Quoth April <xiaoxia20...@yahoo.com>:
>> > tried the following but seems not working:
>>
>> > perl -e "$_=2"
>> > perl -e "print \"$_2\n\""
>
>Yes I'm kind of experiemnting, it seems to me at one point I was able
>to check what is the current value of $_ and also alter it, using the
>command line option?
Of course you can. The -e option does nothing but allowing you to
specify a Perl script directly on the command line instead of saving it
in a file. It is exactly the same Perl code and has exactly the same
capabilities as you have in a script in a file (well, modulo the awkward
shell escapes, of course).
So yes, of course you can "check" the current value of $_ at any point
of your program by printing it or comparing it to another value.
And you can also alter it at any point in your command line script.
The reason why are not seeing any output from
perl -e "print \"$_2\n\""
could be twofold. First I am not sure how all those shell escapes work
in your shell. I'm guessing there is the first problem, otherwise you
should have seen at least a 2 and a newline.
And second, assuming the resulting actually Perl code after the shell
interpretation is
print "$_\n"
then this is the one and only statement in your Perl script. Neither did
you assign any value to $_ nor were there any other preceeding Perl
commands that would have assigned a value to it automatically. So $_ is
undefined and therefore won't print any visible text.
jue
------------------------------
Date: Sat, 11 Oct 2008 12:28:33 -0400
From: "Daniel Kaplan" <NoSPam@NoSpam.com>
Subject: GETDATA to POSTDATA
Message-Id: <1223742512.137582@nntp.acecape.com>
Hi,
I have a page that the server redirects to incase of an SQL Inject attempt.
The thing is, because of the rewrite rule (something beyond my
understanding) the page won't work properly. Call it directly, it works,
call it via the rule, not so much.
What does work is if in that new page, I redirect it to another copy of that
page, and then it works.
But here is my problem:
I cannot redirect it with the same URL because that triggers the redirect
rule (again, written in the server OS), and therefore my Perl redirect just
loops.
So my question is:
Can I take that URL I have, and somehow pass it to my copy with the data in
the URL now in POSTDATA format? Because POSTDATA won't trigger the redirect
rule.
Many thanks ahead, as always.
------------------------------
Date: Sat, 11 Oct 2008 18:59:25 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: how to close STDIN
Message-Id: <slrngf1mrd.6fv.hjp-usenet2@hrunkner.hjp.at>
On 2008-10-11 14:42, Larry <dontmewithme@got.it> wrote:
> i have a script running on a web server (Apache) that accepts data
> from STDIN and saves it:
>
> #!/perl
>
[no "use CGI" other module which might do something under the hood]
> if ($ENV{"HTTP_USER_PASS"} ne 'mypassword')
> {
> close STDIN;
> exit;
> }
Your script not only closes stdin, it also exits.
> then I sent a couple of MBs of data thru http without the USER_PASS
> header, i was struck by my finding out the script sort of died but I was
> still sending raw data to the script...
You can't send it to the script, since the script is already dead. You
might still be sending it to the web server. That makes it a web server
specific question and you should ask in an Apache group.
hp
------------------------------
Date: Sat, 11 Oct 2008 23:46:09 +0200
From: Larry <dontmewithme@got.it>
Subject: Re: how to close STDIN
Message-Id: <dontmewithme-C94CBD.23460911102008@news.tin.it>
In article <slrngf1mrd.6fv.hjp-usenet2@hrunkner.hjp.at>,
"Peter J. Holzer" <hjp-usenet2@hjp.at> wrote:
> You can't send it to the script, since the script is already dead. You
> might still be sending it to the web server. That makes it a web server
> specific question and you should ask in an Apache group.
well, the thing is i tried to send the data to the following:
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $q = new CGI();
$CGI::DISABLE_UPLOADS = 1;
print "content-type: text/plain\n\n";
__END__;
it just keeps on accetping the data...so i tried ps -ux on the web server
USER PID %CPU %MEM VSZ RSS TTY STAT START TIME COMMAND
claudio 531 0.0 0.0 0 0 ? Z 19:13 0:00 [receiver.cgi]
<defunct>
what is <defunct>?? i tried to kill it, yet i didnt get...thats so
strange!
------------------------------
Date: Sat, 11 Oct 2008 23:32:59 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: how to close STDIN
Message-Id: <r5m7s5-ttb1.ln1@osiris.mauzo.dyndns.org>
Quoth Larry <dontmewithme@got.it>:
> In article <slrngf1mrd.6fv.hjp-usenet2@hrunkner.hjp.at>,
> "Peter J. Holzer" <hjp-usenet2@hjp.at> wrote:
>
> > You can't send it to the script, since the script is already dead. You
> > might still be sending it to the web server. That makes it a web server
> > specific question and you should ask in an Apache group.
>
> well, the thing is i tried to send the data to the following:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use CGI;
> my $q = new CGI();
>
> $CGI::DISABLE_UPLOADS = 1;
>
> print "content-type: text/plain\n\n";
>
> __END__;
>
> it just keeps on accetping the data...so i tried ps -ux on the web server
>
> USER PID %CPU %MEM VSZ RSS TTY STAT START TIME COMMAND
> claudio 531 0.0 0.0 0 0 ? Z 19:13 0:00 [receiver.cgi]
> <defunct>
>
> what is <defunct>?? i tried to kill it, yet i didnt get...thats so
> strange!
The <defunct> (and the STAT Z: Z is for 'zombie') mean that the process
has exitted, but its parent hasn't waited for it yet. Since the process
is already dead, you can't kill it again :). Presumably the httpd child
is receiving all the uploaded data and just throwing it away, and once
it's finished it'll perform the wait(2).
Ben
--
All persons, living or dead, are entirely coincidental.
ben@morrow.me.uk Kurt Vonnegut
------------------------------
Date: Sat, 11 Oct 2008 10:59:32 -0400
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: how to use system call within a cgi script
Message-Id: <gcqf0k$ehk$1@knot.queensu.ca>
ReggieC wrote:
> Hi there,
>
> I have to execute an executable from a CGI script written in perl. I
> cannot do that even
> with a very simple test like:
> $result = system("mkdir test1");
> $result = system("mkdir ", "test1");
> exec('mkdir test1');
> but always got 500 Internal Service Error.
why would you want to go out to a shell for a perl built-in?
perldoc -f mkdir
hth
t
------------------------------
Date: 11 Oct 2008 23:25:58 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: how to use system call within a cgi script
Message-Id: <Xns9B34BB83FFC43castleamber@130.133.1.4>
ReggieC <ktrchang@gmail.com> wrote:
> Hi there,
>
> I have to execute an executable from a CGI script written in perl. I
> cannot do that even
> with a very simple test like:
> $result = system("mkdir test1");
> $result = system("mkdir ", "test1");
> exec('mkdir test1');
Read perldoc -f exec
Remove the exec, and try again, does it now work?
> but always got 500 Internal Service Error.
Always copy error messages, don't type them yourself.
--
John http://johnbokma.com/ - Hacking & Hiking in Mexico
Perl help in exchange for a gift:
http://johnbokma.com/perl/help-in-exchange-for-a-gift.html
------------------------------
Date: Sun, 12 Oct 2008 11:29:16 +1100
From: Grant <g_r_a_n_t_@dodo.com.au>
Subject: Re: how to use system call within a cgi script
Message-Id: <n4h2f49i1lc0vg7qoqhc3i3pdc3a5a4i31@4ax.com>
On 11 Oct 2008 23:25:58 GMT, John Bokma <john@castleamber.com> wrote:
>ReggieC <ktrchang@gmail.com> wrote:
>
>> Hi there,
>>
>> I have to execute an executable from a CGI script written in perl. I
>> cannot do that even
>> with a very simple test like:
>> $result = system("mkdir test1");
>> $result = system("mkdir ", "test1");
>> exec('mkdir test1');
>
>Read perldoc -f exec
>
>Remove the exec, and try again, does it now work?
>
>> but always got 500 Internal Service Error.
>
>Always copy error messages, don't type them yourself.
I'd add to that, tail -f the error_log in another terminal and make sure
you made the work area world writable -- not particularly safe, is it?
Grant.
--
http://bugsplatter.id.au/
------------------------------
Date: Sun, 12 Oct 2008 11:38:54 +1100
From: Grant <g_r_a_n_t_@dodo.com.au>
Subject: Re: how to use system call within a cgi script
Message-Id: <5ah2f4hkj9m83vbv2buoe340igdq6k27ti@4ax.com>
On 11 Oct 2008 23:25:58 GMT, John Bokma <john@castleamber.com> wrote:
>ReggieC <ktrchang@gmail.com> wrote:
>
>> Hi there,
>>
>> I have to execute an executable from a CGI script written in perl. I
>> cannot do that even
>> with a very simple test like:
>> $result = system("mkdir test1");
>> $result = system("mkdir ", "test1");
>> exec('mkdir test1');
>
>Read perldoc -f exec
>
>Remove the exec, and try again, does it now work?
>
>> but always got 500 Internal Service Error.
>
>Always copy error messages, don't type them yourself.
Oops, I meant to add an example, this is from a .cgi here (awk):
...
# create a unique output filename
cmd = "mktemp public/cc2ip.XXXXXX"; cmd | getline out; close(cmd)
# make the output filename world writable and append .txt
system("touch " out " && chmod a+rw " out " && mv " out " " out ".txt")
out = out ".txt"
...
The matching web directory:
-r-sr-xr-x 1 grant wheel 3104 2008-10-05 09:07 cc2ip.cgi*
-rwxrwxr-x 1 grant wheel 11570 2008-10-12 06:35 index.html*
-rwxrwxr-x 1 grant wheel 444 2008-10-05 09:07 lookup-ip*
drwxrwxrwx 2 grant wheel 184 2008-10-12 00:02 public/
drwx-w---- 2 grant wheel 128 2008-10-12 11:32 server/
Access to the server script and directory is restricted by a security
wrapper written in C.
Context: http://bugsplatter.id.au/cc2ip/
Grant.
--
http://bugsplatter.id.au/
------------------------------
Date: Sat, 11 Oct 2008 17:36:05 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: Loading the shell environment?
Message-Id: <_PudnWdKlu7s22zVnZ2dnUVZ_qvinZ2d@comcast.com>
T wrote:
> eval `/cae/Modules/${MODULE_VERSION}/bin/modulecmd bash load
> myproject`
>
> and this works, I tried the equivlant in perl:
>
> eval `/cae/Modules/$ENV{'MODULE_VERSION'}/bin/modulecmd tcsh load
> myproject`
>
> Does anyone know how to load the shell environment
> in a Perl script? This script will run in crontab
In bash, the syntax is something like:
PATH=$PATH:/usr/local/bin:$HOME/bin
In perl, the equivalent would be:
$ENV{PATH} = "$ENV{PATH}:/usr/local/bin:$ENV{HOME}/bin";
or
$ENV{PATH} .= ":/usr/local/bin:$ENV{HOME}/bin";
If `modulecmd` were to be modified so that it can produce perl syntax
as well, then you can use this:
eval `/cae/Modules/$ENV{MODULE_VERSION}/bin/modulecmd perl load myproject`;
-Joe
------------------------------
Date: Sat, 11 Oct 2008 21:47:27 GMT
From: sln@netherlands.com
Subject: Re: Parsing CSV and " "
Message-Id: <5672f4hc4n4v1gfaahtf2bfkd10pc7ko4i@4ax.com>
On Fri, 10 Oct 2008 17:33:21 -0700 (PDT), hotkitty <stpra123@gmail.com> wrote:
>On Oct 9, 3:11 pm, s...@netherlands.com wrote:
>> On Thu, 09 Oct 2008 18:52:50 GMT, s...@netherlands.com wrote:
>> >On Wed, 8 Oct 2008 16:58:03 -0700 (PDT), hotkitty <stpra...@gmail.com> wrote:
>>
>> >>I'm trying to parse the following csv file in a linux environment:
>>
>> >>"this is row1 column0","this is row1 column1","this is row1
>> >>column2","this is row1 column3","this
>> >>is row1 column4"
>> >>"this is row2 column0","this is row2 column1","this is row2
>> >>column2","this is row2 column3","this is
>> >>row2 column4"
>>
>> >>Pretty standard CSV but with the last column running onto the next
>> >>line it gets screwed up somehow as my script doesn't recognize when a
>> >>new row starts. I tried substituting the carriage return but still no
>> >>luck. When I open up the file on my windows box w/ notepad I get the
>> >>following (notice the " " that is added to the end of the
>> >>line):
>> >>"this is row1 column0","this is row1 column1","this is row1
>> >>column2","this is row1 column3","this
>> >>is row1 column4"" "
>> >>"this is row2 column0","this is row2 column1","this is row2
>> >>column2","this is row2 column3","this is
>> >>row2 column4"" "
>>
>> >>Maybe I'm just overlooking some simple solution but how do I deal w/
>> >>the " " as Linux doesn't recognize it?
>>
>> >>Thanks in advance. My code is as follows:
>>
>> >>my $csv= Text::CSV->new(); ####### I've also tried setting binary to 1
>> >>but still didn't work
>> >>open (CSV, "<", $thisfile) or die $!;
>> >> while (<CSV>) {
>> >> if ($csv->parse($_)) {
>> >>my @csvcolumns= $csv->fields();
>> >>my $newstuff = "$csvcolumns[1]";
>> >>open(OUT, ">>$thatfile");
>> >>print OUT "$newstuff\n";
>> >>close(OUT);
>> >>}
>>
>> >This is one way. I used the criteria buffer a row until /"$/, eol is found,
>> >and just process remaining buffer if EOF. Otherwise, there is no delineation of rows..
>>
>> >sln
>>
>> >#############
>> ># Csv1 Regex
>> >#############
>>
>> >use strict;
>> >use warnings;
>>
>> >my $fname = 'c:\temp\junk.csv';
>> >open CSV, $fname or die "can't open $fname...";
>>
>> >my ($row, $tmp) = ('','');
>> >my ($parsing, $count) = (1,1);
>>
>> >while ($parsing)
>> >{
>> > if (!($_ = <CSV>))
>> > {
>> > $parsing = 0;
>> > } else {
>> > $tmp = $_;
>> > $tmp =~ s/\s+$//s;
>> > $row .= " $tmp" if (length($tmp));
>> > ## buffer until '"$' or eof
>> > next if ($tmp !~ /"$/);
>> > }
>> > print " (".$count++.") ----------\n";
>> > while ($row =~ /\s*"+\s*([^"]*?)\s*"+\s*|\s*([^,\n]+)\s*/g)
>> > {
>> > my $val = defined $1 ? $1 : $2;
>> > print "val = $val\n";
>> > # ... push @ary, $val;
>> > }
>> > $row = $tmp = '';
>> >}
>>
>> >close CSV;
>>
>> >__END__
>>
>> >output:
>>
>> > (1) ----------
>> >val = this is row1 column0
>> >val = this is row1 column1
>> >val = this is row1 column2
>> >val = this is row1 column3
>> >val = this is row1 column4
>> > (2) ----------
>> >val = this is row2 column0
>> >val = this is row2 column1
>> >val = this is row2 column2
>> >val = this is row2 column3
>> >val = this is row2 column4
>> > (3) ----------
>> >val = this is row3 column0
>> >val = this is row3 column1
>>
>> >junk.csv
>> >----------
>> >"this is row1 column0","this is row1 column1","this is row1
>> >column2","this is row1 column3","this
>> >is row1 column4"
>> >"this is row2 column0","this is row2 column1","this is row2
>> >column2","this is row2 column3","this is
>> >row2 column4"
>>
>> >"this is row3 column0","this is row3 column1",
>>
>> Btw, Excel will not do this correctly. Either you have to generate a
>> proper csv file (with EOR definition), or do this kind of a fix-up using your own criteria.
>
>I apologize for the late reply but appreciate the quick responses you
>have given me. Perhaps I am doing something wrong w/ the above
>suggestions but I'll keep cracking away. Here is the actual .csv file
>I am trying to parse:
>http://www.nasdaq.com//asp/symbols.asp?exchange=Q&start=0
>
>thx
Actually, Josef Möllers posted a pragmatic method and it works (Occums Razor),
ie: counting the number of quotes.
And it makes sense because in reality, the end of record is the eol, but in this case
there are multiple double quotes scattered over mutiple lines. The only intersection of
these two principles is eol AND even # of double quotes.
This file loaded up in Excel right away, parsed fine. Although all the junk was left in there.
>A pragmatic approach:
>Collect lines until you have an even number of quotes:
><untested>
>my $line;
>while (1) {
> $line .= <$src>;
> chomp $line;
> last if ($line =~ tr/"//) %2 == 0;
>}
With a little extra effort I cleaned up the parsing and it works fine.
Good Luck...
sln
#############
# Csv2 Regex
#############
# http://www.nasdaq.com//asp/symbols.asp?exchange=Q&start=0
use strict;
use warnings;
my $fname = 'c:\temp\junkie.csv';
open CSV, $fname or die "can't open $fname...";
my ($row, $tmp) = ('','');
my ($parsing, $count) = (1,1);
while ($parsing)
{
## Buffer until a full row
## -------------------------
if (!($_ = <CSV>)) {
$parsing = 0; # eof, parse what's left
} else {
## -------------------------------
$tmp = $_;
$tmp =~ s/\s+$//s;
next if (!length($tmp));
$row .= " $tmp";
next if (!($row =~ tr/"// %2 == 0)); # Even number of double quotes?
} # Good to go, parse it ...
print " (".$count++.") ----------\n";
# parse the row
# -------------------
while ($row =~ /\s*"\s*([^"]*?)\s*"\s*,|\s*"\s*(.*?)\s*"\s*$/g)
{
my $val = $1;
if (defined $2) {
# do some cleanup
# ----------------
$val = $2;
$val =~ s/""/"/g;
$val =~ s/\.\.\. More\.\.\.//ig;
$val =~ s/ / /ig;
}
print "val = $val\n";
}
$row = '';
}
close CSV;
__END__
Partial output:
(1) ----------
val = NASDAQ Securities as of 12/31/2008
val =
val =
val =
(2) ----------
val = Name
val = Symbol
val = Security Type
val = Shares Outstanding
val = Market Value (millions)
val = Description (as filed with the SEC)
(3) ----------
val = 012 Smile.Communications Ltd.
val = SMLC
val = Ordinary Shares
val = 25,360,000
val = $136.4
val = Prior to our October 2007 public offering, we were a wholly-owned subsidiary of Internet Gold, a public company traded on the NASDAQ Global Market and the Tel Aviv Stock Exchange, whose shares
are included in the TASE-100 Index. Internet Gold currently owns approximately 72.4% of our ordinary shares. In November 2004, Internet Gold became our sole shareholder after purchasing our ordinary
shares from our prior shareholders. As part of its internal restructuring in 2006, Internet Gold transferred its communications and media operations into two operating subsidiaries. Internet Gold
transferred to us its broadband and traditional voice services businesses, which we refer to in this annual report as the Communications Business.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2008%2f06%2f30%2f0001178913-08-001700.html#FIS_COMPANY_INFORMATION"
(4) ----------
val = 1-800 FLOWERS.COM, Inc.
val = FLWS
val = Common Stock
val = 26,528,000
val = $116.5
val = For more than 30 years, 1-800-FLOWERS.COM, Inc. - "Your Florist of Choice(R)" - has been providing customers around the world with the freshest flowers and finest selection of plants,
gift baskets, gourmet foods and confections, and plush stuffed animals perfect for every occasion. 1-800-FLOWERS.COM(R) offers the best of both worlds: exquisite, florist-designed arrangements
individually created by some of the nation's top floral artists and hand-delivered the same day, and spectacular flowers delivered through its "Fresh From Our Growers(TM)" program. Customers can
"call, click, or come in" to shop 1-800-FLOWERS.COM(R) 24 hours a day, 7 days a week at 1-800-356-9377 or www.1800flowers.com. Sales and Service Specialists are available 24/7, and fast and
reliable delivery is offered same day, any day. As always, 100 percent satisfaction and freshness is guaranteed. The 1-800-FLOWERS.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2007%2f09%2f13%2f0001084869-07-000018.html#FIS_BUSINESS"
(5) ----------
val = 1st Constitution Bancorp (NJ)
val = FCCY
val = Common Stock
val = 3,998,000
val = $35.0
val = 1st Constitution Bancorp (the “Company”) is a bank holding company registered under the Bank Holding Company Act of 1956, as amended. The Company was organized under the laws of the State of New
Jersey in February 1999 for the purpose of acquiring all of the issued and outstanding stock of 1st Constitution Bank (the “Bank”) and thereby enabling the Bank to operate within a bank holding
company structure. The Company became an active bank holding company on July 1, 1999. The Bank is a wholly-owned subsidiary of the Company. Other than its investment in the Bank, the Company currently
conducts no other significant business activities. The main office of the Company and the Bank is located at 2650 Route 130 North, Cranbury, New Jersey 08512, and the telephone number is (609)
655-4500. 1st Constitution Bank The Bank, a commercial bank formed under the laws of the State of New Jersey, engages in the business of commercial and retail banking.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2008%2f04%2f15%2f0001214659-08-000838.html#FIS_BUSINESS"
(6) ----------
val = 1st Pacific Bancorp (CA)
val = FPBN
val = Common Stock
val = 4,970,000
val = $25.3
val = 1st Pacific Bancorp (the "Company", "we", "our", or "us") is a California corporation incorporated on August 4, 2006 and is registered with the Board of Governors of the Federal Reserve System
as a bank holding company under the Bank Holding Company Act of 1956, as amended. 1st Pacific Bank of California (the "Bank") is a wholly-owned bank subsidiary of the Company and was incorporated in
California on April 17, 2000. The Bank is a California corporation licensed to operate as a commercial bank under the California Banking Law by the California Department of Financial Institutions (the
"DFI"). In accordance with the Federal Deposit Insurance Act, the Federal Deposit Insurance Corporation (the "FDIC") insures the deposits of the Bank. The Bank is a member of the Federal Reserve
System. "http://secfilings.nasdaq.com/edgar_conv_html%2f2008%2f03%2f31%2f0001047469-08-003795.html#FIS_BUSINESS"
(7) ----------
val = 1st Source Corporation
val = SRCE
val = Common Stock
val = 24,110,000
val = $530.2
val = 1st Source Corporation, an Indiana corporation incorporated in 1971, is a bank holding company headquartered in South Bend, Indiana that provides, through our subsidiaries (collectively referred
to as "1st Source"), a broad array of financial products and services. 1st Source Bank and First National Bank, Valparaiso (collectively referred to as the "Banks"), our banking subsidiaries, offer
commercial and consumer banking services, trust and investment management services, and insurance to individual and business clients through most of our 83 banking center locations in 17 counties in
Indiana and Michigan. 1st Source Bank's Specialty Finance Group, with 24 locations nationwide, offers specialized financing services for new and used private and cargo aircraft, automobiles and light
trucks for leasing and rental agencies, medium and heavy duty trucks, construction equipment, and environmental equipment.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2008%2f02%2f22%2f0000034782-08-000022.html#FIS_BUSINESS"
(8) ----------
val = 21st Century Holding Company
val = TCHC
val = Common Stock
val = 8,014,000
val = $33.7
val = 21st Century Holding Company (“21st Century,” “Company,” “we,” “us”) is an insurance holding company, which, through our subsidiaries and our contractual relationships with our independent
agents and general agents, controls substantially all aspects of the insurance underwriting, distribution and claims process. We are authorized to underwrite homeowners’ property and casualty
insurance, commercial general liability insurance, personal automobile insurance and commercial automobile insurance in various states with various lines of authority through our wholly owned
subsidiaries, Federated National Insurance Company (“Federated National”) and American Vehicle Insurance Company (“American Vehicle”). The insurable events during 2007 and 2006 did not include any
weather related catastrophic events such as the well publicized series of hurricanes that occurred in Florida during 2005 and 2004.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2008%2f03%2f17%2f0001144204-08-015873.html#FIS_BUSINESS"
(9) ----------
val = 3Com Corporation
val = COMS
val = Common Stock
val = 405,283,000
val = $911.9
val = We provide secure, converged networking solutions on a global scale to organizations of all sizes. Our products and solutions enable customers to manage business-critical voice, video and data
in a secure, scalable, reliable and efficient network environment. We deliver networking products and services for enterprises that view their networks as mission critical, and value cost-effective
superior performance. Our products form integrated solutions and function in multi-vendor environments based upon open, not proprietary, platforms. Our products are sold on a worldwide basis through a
combination of value added partners and direct sales representatives. We deliver products and solutions that support the increasingly complex and demanding application environments in today’s
businesses. We aspire to be one of the leading enterprise networking companies by delivering innovative, secure, feature-rich products and solutions built on open platform technology.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2007%2f07%2f31%2f0000950135-07-004539.html#FIS_BUSINESS"
(10) ----------
val = 3D Systems Corporation
val = TDSC
val = Common Stock
val = 22,365,000
val = $188.5
val = 3D Systems Corporation (“3D Systems” or the “Company”) is a holding company that operates through subsidiaries in the United States, Europe and the Asia-Pacific region. We design, develop,
manufacture, market and service a suite of additive manufacturing solutions including 3-D modeling, rapid prototyping and manufacturing systems and related products and materials that enable complex
three-dimensional objects to be produced directly from computer data. Our customers use our proprietary systems to produce physical objects from digital data using commonly available computer-aided
design software, often referred to as CAD software, or other digital-media devices such as engineering scanners and MRI or CT medical scanners.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2008%2f03%2f17%2f0000950144-08-002028.html#FIS_BUSINESS"
(11) ----------
val = 3SBio Inc.
val = SSRX
val = American Depositary Shares
val = 21,797,000
val = $126.4
val = We commenced business operations in 1993 through Shenyang Sunshine Pharmaceutical Co., Ltd., or Shenyang Sunshine, a limited liability company established in China. Prior to our initial public
offering in February 2007, we established a holding company structure through the following series of corporate reorganization transactions: • we formed Collected Mind Limited, a British Virgin
Islands company, in July 2006; • Collected Mind Limited acquired 100% of the equity interests of Shenyang Sunshine, which was reorganized as a wholly foreign owned enterprise,
or WFOE, in July 2006; and • we incorporated 3SBio Inc., an exempted company in the Cayman Islands, which acquired 100% equity interest in Collected Mind in September 2006.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2007%2f06%2f29%2f0001193125-07-146810.html#FIS_COMPANY_INFORMATION"
(12) ----------
val = 51job, Inc.
val = JOBS
val = American Depositary Shares
val = 28,260,000
val = $241.3
val = We commenced our business in 1998. Since our inception, we have conducted substantially all of our operations in China. In March 2000, our founders incorporated a new holding company, now called
51job, Inc., as an exempted limited liability company in the Cayman Islands under the Cayman Islands Companies Law (2004 Revision). Subsequently, 51job, Inc. acquired 51net.com Inc., or 51net, a
British Virgin Islands company, and other subsidiaries to become the holding company of our corporate group. We operate as a foreign investment enterprise in China through our wholly owned
subsidiaries, 51net, which is the registered owner of some of our trademarks and our domain name, 51net Beijing and 51net HR, which are both Cayman Islands companies, as well as our affiliated Chinese
entities, the primary ones being: • Shanghai Qianjin Advertising Co., Ltd. "http://secfilings.nasdaq.com/edgar_conv_html%2f2007%2f06%2f28%2f0001145549-07-001142.html#FIS_COMPANY_INFORMATION"
(13) ----------
val = 8x8 Inc
val = EGHT
val = Common Stock
val = 62,175,000
val = $42.3
val = Statements contained in this annual report on Form 10-K, or Annual Report, regarding our expectations, beliefs, estimates, intentions or strategies are forward-looking statements within the
meaning of Section 27A of the Securities Act and Section 21E of the Exchange Act. Any statements contained herein that are not statements of historical fact may be deemed to be forward-looking
statements. For example, words such as "may," "will," "should," "estimates," "predicts," "potential," "continue," "strategy," "believes," "anticipates," "plans," "expects," "intends," and similar
expressions are intended to identify forward-looking statements. You should not place undue reliance on these forward-looking statements. Actual results and trends may differ materially from
historical results or those projected in any such forward-looking statements depending on a variety of factors.
"http://secfilings.nasdaq.com/edgar_conv_html%2f2007%2f06%2f29%2f0001023731-07-000014.html#FIS_BUSINESS"
(14) ----------
val = A-Power Energy Generation Systems, Ltd.
val = APWR
val = Common Stock
val = 32,707,000
val = $136.4
val = A-Power A-Power Energy Generated Systems, Ltd. (formerly known as China Energy Technology Limited) was incorporated under the laws of the British Virgin Islands on May 14, 2007. Until January
18, 2008, A-Power was a wholly-owned subsidiary of Chardan South China Acquisition Corporation. Chardan Chardan South China Acquisition Corporation was a blank check corporation organized under the
laws of the State of Delaware on March 10, 2005. Chardan was originally incorporated as “Chardan China Acquisition Corp. III,” but changed its name to Chardan South China Acquisition Corporation on
July 14, 2005. Chardan was formed to effect a business combination with an unidentified operating business that had its primary operating facilities located in the PRC in any city or province south of
the Yangtze River. "http://secfilings.nasdaq.com/edgar_conv_html%2f2008%2f07%2f11%2f0001144204-08-039652.html#FIS_COMPANY_INFORMATION"
(15) ----------
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 1917
***************************************
