[bcn-pm] slurp (xarrupar?) els continguts d'un arxiu...

[mimosinnet]

Més màgia amb Perl....

A partir de la resposta rebuda pels PerlMongers
(http://perlmonks.org/?node_id=1012996) he descobert que es poden llegir
arxius de cop, "xarrupant-los" (slurp):
http://www.sysarch.com/Perl/slurp_article.html

Es pot fer així:

my $online_file = "/sys/class/power_supply/BAT0/online";
my $online = do
{
	local @ARGV = $online_file;
	local $/ = <ARGV>;
};

Amb això tenim els continguts de l'arxiu $online_file a la variable
$online.

Un recordatori de què volen dir aquestes variables segons perlvar:
- $/: The input record separator, newline by default.
- ARGV: The special filehandle that iterates over command-line filenames in @ARGV.
- @ARGV: The array @ARGV contains the command-line arguments intended for the script.

Més que màgia..., bruixeria ...!!! ;-)

Salut! 

-- 
Mimosinnet
Linux User: #463211
41:24:51N (41.4141) 2:11:24E (2.1902)

Ningún Lugar
Activisme Cultural per a la Transformació Social
http://generatech.org/ningunlugar

Fractalitats en Investigació Crítica
Investigació Crítica per a la Transformació Social
http://psicologiasocial.uab.es/fic

-------------- part següent --------------
A non-text attachment was scrubbed...
Name: no disponible
Type: application/pgp-signature
Size: 198 bytes
Desc: no disponible
URL: <http://mail.pm.org/pipermail/barcelona-pm/attachments/20130115/5841bc17/attachment.bin>