sybperl-l Archive

From: "Mabbett, Lane" <lane dot mabbett at exsc01 dot exch dot eds dot com>
Subject: trailing commas in result set
Date: Oct 6 1997 12:33PM

I'm trying to trim off trailing commas in my result set returned by
Sybase. 
What's wrong with my row =~/,\+//;

Thanks

%row = &dbnextrow($dbproc, 1);
    while (%row = &dbnextrow($dbproc, 1))
    {
    row =~ /,\+$//;
    print "$row{'prov_name'}, ,
";
    print "Specialty: $row{'description'}, 
";
    print "$row{'prov_address1'}, 
";
    print "$row{'prov_address2'}, 
";
    print "$row{'prov_city'} ";
    print "$row{'prov_state'}, ";
    print "$row{'prov_zip'}, 
";
    print "$row{'prov_phone'}, 
";
    print "
", "\n";
    }

lane.mabbett@eds.com
75 Sgt. Wm. B. Terry Drive
Hingham, MA 02043
617-741-3444
fax 617-741-3420