in reply to printing just part of data
I hope you noticed that "" interpolate :)#!/usr/bin/perl -- use strict; use warnings; my $file = "./max/base/file.c: $(ROOT)/../../../api/maX \\"; my ( $left, $right ) = split /:\s{4,}/, $file ; use Data::Dumper; print Dumper( $file, $left, $right ); __END__ $VAR1 = './max/base/file.c: 0ROOT)/../../../api/maX \\'; $VAR2 = './max/base/file.c'; $VAR3 = '0ROOT)/../../../api/maX \\';
|
|---|