perl 中运行 isql 中的问题

sumila1icil

在perl 中做报表,运行SQL文件,但是isql回出现表头就象,
(1 row affected)
(37 rows affected)
(37 rows affected)

------------------------------------------------------------------------

EXHKG |11/03/03  |403-30728154|UHK-02607463|SEL|HKG020306|SCHMIDT COMPO

我想把那行虚线去掉. 不知谁懂?
我开始用这种方法,但老板说没有找到跟本问题.
望赐教.
$result =~ s/-(-)*//g;

sumila1icil

用什么通配符实现去掉 全是虚线的行.
我用
=~ s/^-$/mg
不行请指教,我是初学者.

apile

$a=~ s/^\-+$//;
一次一行...

sumila1icil

差不多,我们最后是这样做的.
$a = s/^\s((-)+\s)+$//mg;