String Connection Issue
- by Nano HE
Hi,
Could you please have a look at my code below.
#!C:\Perl\bin\perl.exe
use strict;
use warnings;
use Data::Dumper;
my $fh = \*DATA;
my $str1 = "listBox1.Items.Add(\"";
my $str2 = "\")\;";
while(my $line = <$fh>)
{
$line=~s/^\s+//g;
print $str1.$line.$str2;
chomp($line);
}
__DATA__
Hello
World
Output:
D:\learning\perl>test.pl
listBox1.Items.Add("Hello
");listBox1.Items.Add("World
");
D:\learning\perl>
Style error. I want the style below. Is ther anything wrong about my code? thanks.
D:\learning\perl>test.pl
listBox1.Items.Add("Hello");
listBox1.Items.Add("World");
D:\learning\perl>