Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: mutt issue

by almut (Canon)
on Jul 27, 2010 at 11:44 UTC ( #851527=note: print w/replies, xml ) Need Help??


in reply to mutt issue

Something like this:

#!/usr/bin/perl my $address = 'some@address'; my $attachment = 'some.file'; my $subject = 'some subject'; system "mutt -a '$attachment' -s '$subject' '$address' </dev/null";

But beware what you interpolate — the command line is executed by the shell!

(Instead of the </dev/null (for no mail body), you could also pipe some message to the command...)

Replies are listed 'Best First'.
Re^2: mutt issue
by afoken (Abbot) on Jul 27, 2010 at 12:24 UTC
    But beware what you interpolate the command line is executed by the shell!

    Yeah, and without any need for that. Using a list of arguments instead of a string would have prevented that. Of course, that would have broken the redirection of STDIN to /dev/null. But that redirection is most times not what the OP wants. You also noticed that:

    (Instead of the </dev/null (for no mail body), you could also pipe some message to the command...)

    And at this point, we have reached Safe Pipe Opens, with examples that have much less traps than system with an interpolated string and characters that trigger shell invocation.

    Alexander

    --
    Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://851527]
help
Chatterbox?
[Tux]: Corion++ hippo++
[ovedpo15]: it isn't homework. its a module I use at work. The process to add additional module isn't worth it. p.s never heard a university course which teach perl
[marto]: there are many, to this day.
[ovedpo15]: @Corion Yes I use the regex you showed me. its very good regex. although now i need to know that substring unit that comma
marto mad corrections to one around 18 months ago
[ovedpo15]: my code checks the value after that comma, if it isn't valid it will remove it. so I would like to remove the substring after that comma meaning getting the string before comma.
[hippo]: Are you sure that Text::CSV_XS isn't already installed at your work? It's such a useful module that it might well be there.
[marto]: pointing out the advantages of cpan modules is well worth in, as both developer and $client/$company benefit greatly
[Tux]: $src =~ m{^(.*),(.*)$/ and $2 !~ $valid and $src = $1;
[Tux]: s,/,},

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2018-05-27 10:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?