Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^2: Strange system call failure in OS X

by endor-moon (Initiate)
on Feb 18, 2013 at 15:12 UTC ( #1019350=note: print w/replies, xml ) Need Help??

in reply to Re: Strange system call failure in OS X
in thread Strange system call failure in OS X

Actually, this is the way I ended up doing these system calls due to its relative simplicity:

# Declare dependencies use File::Slurp; # Declare variables we'll be using my $name = ""; my @args = (); my $result = ""; # Set computer name based on MAC address of en0 my @entries = qx(ifconfig en0 | awk '/ether/ { gsub(":", ""); print \$ +2 }'); chomp(@entries); $name = $entries[0];

Replies are listed 'Best First'.
Re^3: Strange system call failure in OS X
by karlgoethebier (Parson) on Feb 18, 2013 at 20:43 UTC

    Hi endor-moon and welcome,

    After bothering myself a bit with awk (i repressed the details) i decided to take the swiss katana. I'm assuming that you just want the mac address:

    #!/usr/bin/env perl + use strict; use warnings; my $mac = ( split " ", ( qx(ifconfig en0) )[2] )[1]; print qq($mac\n); __END__ Karls-Mac-mini:monks karl$ ./ 2c:07:54:5e:3e:f0 # i faked this, really ;-)

    This works for me. Please note also that your code didn't output anything (for me).

    Btw, why do you load a module that you don't use (File::Slurp) as well as some variables (@args, $result)...or do i miss something?

    My best regards, Karl

    «The Crux of the Biscuit is the Apostrophe»

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1019350]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2016-10-25 04:15 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (314 votes). Check out past polls.