Re^2: Perl Tk Insert

Even the following code produces the same output

open(FILE, "DATA/carownerdata.txt");
my @lines=<FILE>;
close(FILE);

while ( my $lines = <@lines> ) {
chomp (@lines);
my @owner = split( /\:/, $lines);

$personRight->BrowseEntry(-width=>20,-borderwidth=>2,
        -relief=>'sunken',-textvariable=>\$perInfo->{CAROWNER},state=>
+'disabled',
        -foreground=>'black',-background=>'white')->pack()->insert( 'e
+nd', $owner[1]);
}
[download]

Comment on Re^2: Perl Tk Insert Download Code

Replies are listed 'Best First'.
Re^3: Perl Tk Insert by Anonymous Monk on Feb 18, 2014 at 06:21 UTC
Even the following code produces the same output Yes, I believe it does, its not much different from the code you originally posted, so they should both do the same thing Is that a satisfactory answer? How can I improve my answer?	[reply]