Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

chop from front and back

by torres09 (Acolyte)
on Jun 21, 2013 at 06:14 UTC ( #1040079=perlquestion: print w/replies, xml ) Need Help??
torres09 has asked for the wisdom of the Perl Monks concerning the following question:


I have two array cells one starting with " say like "abc and other ending with " say like def" . so when I print them together it prints like "abcdef" . but I want to print it as abcdef , how can I do it

Replies are listed 'Best First'.
Re: chop from front and back
by moritz (Cardinal) on Jun 21, 2013 at 06:31 UTC
Re: chop from front and back
by hdb (Monsignor) on Jun 21, 2013 at 06:34 UTC

    s/"//g will remove all " from your string, s/^"|"$//g; only the ones at the beginning and the end of the string.

Re: chop from front and back
by kcott (Chancellor) on Jun 21, 2013 at 07:25 UTC

    G'day torres09,

    Something like this:

    $ perl -Mstrict -Mwarnings -le ' my $x = q{"abc}; my $y = q{def"}; print substr $x . $y, 1, -1; ' abcdef

    -- Ken

      what if I wish to print it as abc,def

        print substr "$x,$y", 1, -1;
        لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
Re: chop from front and back
by space_monk (Chaplain) on Jun 21, 2013 at 08:21 UTC
    #!/usr/bin/perl # this is long just to be readable # some clever Monks will no doubt show shorter methods... # Monks get stroppy if you don't use these... :-) use strict; use warnings; # Perl developers best friend.... use Data:Dumper; # array we want to process... my @array = qw( "abc def" ); # print array to show it contains the two elements... print "Array:".Dumper( \@array)."\n"; # join your array together... my $str = join( '', @array); # remove anything you don't want in the string... # this removes all quotes, but you can change it # to just start and end $str =~ s/['"]//g; # ...or $str =~ tr/'"//; # output result.... print $str;
    If you spot any bugs in my solutions, it's because I've deliberately left them in as an exercise for the reader! :-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1040079]
Approved by moritz
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2018-03-18 13:58 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (230 votes). Check out past polls.