<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Senín ( con n ) &#187; perl</title>
	<atom:link href="http://www.senin.org/weblog/category/perl/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.senin.org/weblog</link>
	<description>Mis notas rápidas de perl y shell</description>
	<lastBuildDate>Wed, 28 Jul 2010 23:14:34 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.0</generator>
		<item>
		<title>perl forking</title>
		<link>http://www.senin.org/weblog/2010/07/15/perl-forking/</link>
		<comments>http://www.senin.org/weblog/2010/07/15/perl-forking/#comments</comments>
		<pubDate>Thu, 15 Jul 2010 11:45:18 +0000</pubDate>
		<dc:creator>jorge</dc:creator>
				<category><![CDATA[Notas rápidas]]></category>
		<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://www.senin.org/weblog/2010/07/15/perl-forking/</guid>
		<description><![CDATA[Esquema de como montar forks con perl, #!/usr/bin/perl my $pid = fork(); my @childs ; if ( not defined $pid ) { &#160;&#160;&#160; # error no se puede crear el forkç &#160;&#160;&#160; print " no es posible crear el fork "; } if ( $pid == 0 ) { &#160;&#160;&#160; # es un hijo &#160;&#160;&#160; [...]]]></description>
			<content:encoded><![CDATA[<p>Esquema de como montar forks con perl,</p>
<pre>
#!/usr/bin/perl

my $pid = fork();
my @childs ;

if ( not defined $pid ) {
&nbsp;&nbsp;&nbsp; # error no se puede crear el forkç
&nbsp;&nbsp;&nbsp; print " no es posible crear el fork ";
}

if ( $pid == 0 ) {
&nbsp;&nbsp;&nbsp; # es un hijo

&nbsp;&nbsp;&nbsp; # aqui lo que ejecuta el&nbsp; hijo
&nbsp;&nbsp;&nbsp; # aqui lo que ejecuta el hijo
&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; exit( 0 ) ;
&nbsp;&nbsp;&nbsp;
} else {
&nbsp;&nbsp;&nbsp; # padre , guardmos la lista de hijos para luego, matarlos
&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; push(@childs, $pid);
}

# matar los hijos
&nbsp;&nbsp;&nbsp; foreach (@childs) {
&nbsp;&nbsp;&nbsp; waitpid($_, 0);
&nbsp;&nbsp;&nbsp; }
</pre>
]]></content:encoded>
			<wfw:commentRss>http://www.senin.org/weblog/2010/07/15/perl-forking/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Borrar modulos de Perl instalados con CPAN</title>
		<link>http://www.senin.org/weblog/2007/01/23/borrar-modulos-de-perl-instalados-con-cpan/</link>
		<comments>http://www.senin.org/weblog/2007/01/23/borrar-modulos-de-perl-instalados-con-cpan/#comments</comments>
		<pubDate>Tue, 23 Jan 2007 16:32:58 +0000</pubDate>
		<dc:creator>jorge</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://www.senin.org/weblog/2007/01/23/borrar-modulos-de-perl-instalados-con-cpan/</guid>
		<description><![CDATA[http://www.cpan.org/misc/cpan-faq.html#How_delete_Perl_modules #!/usr/local/bin/perl -w use ExtUtils::Packlist; use ExtUtils::Installed; $ARGV[0] or die &#8220;Usage: $0 Module::Name\n&#8221;; my $mod = $ARGV[0]; my $inst = ExtUtils::Installed->new(); foreach my $item (sort($inst->files($mod))) { print &#8220;removing $item\n&#8221;; unlink $item; } my $packfile = $inst->packlist($mod)->packlist_file(); print &#8220;removing $packfile\n&#8221;; unlink $packfile;]]></description>
			<content:encoded><![CDATA[<p>http://www.cpan.org/misc/cpan-faq.html#How_delete_Perl_modules</p>
<pre>
#!/usr/local/bin/perl -w</pre>
<p>use ExtUtils::Packlist;<br />
use ExtUtils::Installed;</p>
<p>$ARGV[0] or die &#8220;Usage: $0 Module::Name\n&#8221;;</p>
<p>my $mod = $ARGV[0];</p>
<p>my $inst = ExtUtils::Installed->new();</p>
<p>foreach my $item (sort($inst->files($mod))) {<br />
print &#8220;removing $item\n&#8221;;<br />
unlink $item;<br />
}</p>
<p>my $packfile = $inst->packlist($mod)->packlist_file();<br />
print &#8220;removing $packfile\n&#8221;;<br />
unlink $packfile;</p>
]]></content:encoded>
			<wfw:commentRss>http://www.senin.org/weblog/2007/01/23/borrar-modulos-de-perl-instalados-con-cpan/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Instalación de módulos de perl</title>
		<link>http://www.senin.org/weblog/2006/06/30/instalacion-de-modulos-de-perl/</link>
		<comments>http://www.senin.org/weblog/2006/06/30/instalacion-de-modulos-de-perl/#comments</comments>
		<pubDate>Fri, 30 Jun 2006 16:39:01 +0000</pubDate>
		<dc:creator>jorge</dc:creator>
				<category><![CDATA[Notas rápidas]]></category>
		<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://senin.org/weblog/instalacion-de-modulos-de-perl</guid>
		<description><![CDATA[perl -MCPAN -e 'install Net::SNMP::Interfaces::Details' alternativa perl -MCPAN -e shell cpan> install Net::SNMP::Interfaces::Details Si encuentra errores: perl -MCPAN -e shell cpan> make Net::SNMP::Interfaces::Details Detallará donde se encuentra el error Ejemplo: ... Looks good Writing Makefile for Net::SNMP::Interfaces Can't exec "/usr/bin/make": No existe el fichero o el directorio at /usr/share/perl/5.8/CPAN.pm line 4567. /usr/bin/make -- NOT OK]]></description>
			<content:encoded><![CDATA[<pre>
perl -MCPAN -e 'install Net::SNMP::Interfaces::Details'
</pre>
<p>alternativa </p>
<pre>
perl -MCPAN -e shell
cpan> install Net::SNMP::Interfaces::Details
</pre>
<p>Si encuentra errores:</p>
<pre>
perl -MCPAN -e shell
cpan> make Net::SNMP::Interfaces::Details
</pre>
<p>Detallará donde se encuentra el error</p>
<p>Ejemplo:</p>
<pre>
...
Looks good
Writing Makefile for Net::SNMP::Interfaces
Can't exec "/usr/bin/make": No existe el fichero o el directorio at /usr/share/perl/5.8/CPAN.pm line 4567.
  /usr/bin/make  -- NOT OK
</pre>
]]></content:encoded>
			<wfw:commentRss>http://www.senin.org/weblog/2006/06/30/instalacion-de-modulos-de-perl/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Script de Perl para DBI</title>
		<link>http://www.senin.org/weblog/2006/05/19/script-de-perl-para-dbi/</link>
		<comments>http://www.senin.org/weblog/2006/05/19/script-de-perl-para-dbi/#comments</comments>
		<pubDate>Fri, 19 May 2006 10:08:58 +0000</pubDate>
		<dc:creator>jorge</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://senin.org/weblog/script-de-perl-para-dbi</guid>
		<description><![CDATA[Esta es mi plantilla de perl para un script con DBI Ver documentación en http://mysql.turbolift.com/mysql/DBD_3.21.X.html]]></description>
			<content:encoded><![CDATA[<p>Esta es mi plantilla de perl para un script con DBI<br />
Ver documentación en<br />
<a href="http://mysql.turbolift.com/mysql/DBD_3.21.X.html">http://mysql.turbolift.com/mysql/DBD_3.21.X.html</a></p>
]]></content:encoded>
			<wfw:commentRss>http://www.senin.org/weblog/2006/05/19/script-de-perl-para-dbi/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
