Re: Re: Re: Re: There Was a Lad (was Re: O Happy Day)

[Louis Proyect]

>In the usual Marxist taxonomy, computer programmers are intellectual 
>workers, no? Presumably most of them get paid for it.
>
>Doug

Right. Intellectual. Sure. This is what I do for a living. I wrote it today
when I wasn't posting to PEN-L or my own list. It is a version of the same
basic stupid program I have written for 32 years:

#!/usr/local/bin/perl
use Sybase::CTlib;


$dbh = Sybase::CTlib->ct_connect("xxx", "yyyyyy");

@res = $dbh->ct_sql("exec SBA_Vendors_Report");

foreach $row (@res)   # Loop through each row
   {$cert_date = substr($res[$cntr][10], 0, 11);
    if ($cert_date =~ /1900/)
        {$cert_date = ""};
    $length = @$row;
    if ($length gt 1)
    {$bid_amt = sprintf("%.2f", @$row[1]);
     $vendor_name = sprintf("%-30s", @$row[0]);
     print "Vendor: $vendor_name          Bid Amt:  $bid_amt\n";
     print "EIN #: @$row[2]               Small: @$row[3]       Vendor is
in Pronet: @$row[11]\n";
     print "DUNS #: @$row[4]             Small Disadvantage: @$row[5]\n";
     print "Hub Zone: @$row[7]                     SIC #: @$row[6]\n";
     print "NAICS #: @$row[8]                 Small Woman: @$row[9] Cert
End Dte: $cert_date\n";
     print "UNSPSC # @$row[11]             Large: @$row[12]\n\n\n";}
         $cntr++;}

Louis Proyect
Marxism mailing list: http://www.marxmail.org