Re: Finding length of line if have any position of any char inside line

[jwkrahn]

This appears to do what you require:

my $string = "test\nI want length of this line\n test";
my $position = 12; # Note this postion can be any position in any line
+. currently considering it inside 2nd line

my $length_of_line;
if ( $string =~ /\n.*(?=\n)/ && $-[ 0 ] < $position && $+[ 0 ] > $posi
+tion ) {

    $length_of_line = $+[ 0 ] - $-[ 0 ];
    }

[AnomalousMonk]

But the following gives no result even though the
    "\nwant length of this line\n"
substring containing a character at offset 12 in the overall string matches the  /\n.*(?=\n)/ regex:

c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = qq{test\nI\nwant length of this line\n test};
 my $position = 12;
 ;;
 my $length_of_line;
 if ( $string =~ /\n.*(?=\n)/ && $-[ 0 ] < $position && $+[ 0 ] > $pos
+ition ) {
   $length_of_line = $+[ 0 ] - $-[ 0 ];
   }
 print $length_of_line;
"
Use of uninitialized value in print at -e line 1.