poppen

perl -ane 'BEGIN { $\="," } print $F[2] unless /^$/' /tmp/hoge.txt

poppen

ls | perl -MFile::Copy -ne 'chomp $_; copy("/Users/poppen/repos/vimperator-plugins/trunk/$_", "$_"); print $_, "\n"'

poppen

sed -n '3,$p' hoge.csv | nkf -Sw | perl -F, -anle '{print "$F[3],$F[5]"}'

poppen

 rpm -qa --queryformat %{NAME}-%{VERSION}-%{ARCH}-%{RELEASE}\\n|sort|grep el5.rf | perl -F'-' -ane '{chmod $_; @l = @F[0,-5]; $s = join("-",@l); $s =~ s/\-$//; print $s, "\n" }'

poppen

rpm -qa --queryformat %{NAME}-%{VERSION}-%{ARCH}-%{RELEASE}\\n|sort|grep el5.rf | perl -F'-' -ane '{chmod $_; @l = @F[0,-5]; $s = join("-",@l); $s =~ s/\-$//; system "yumdownloader --destdir /var/tmp $s" }' 

poppen

rpm -qa --queryformat %{NAME}-%{VERSION}-%{ARCH}-%{RELEASE}\\n|sort|grep el5.rf | perl -ne '{chomp $_; $_ =~ /^(.*?)\-[0-9]/; system "sudo yum remove $1" }'

poppen

program hello
  print *, 'Hello World!'
end program hello

poppen

#!/usr/bin/env perl

use strict;
use warnings;
use 5.012;

use Config::Pit;
use LWP::Simple;
use XML::Simple;
use URI::Escape;

poppen

Index: trunk/twissr.js
===================================================================
--- trunk/twissr.js	(revision 38395)
+++ trunk/twissr.js	(working copy)
@@ -1,5 +1,5 @@
 // Vimperator plugin: "Update Twitter & Wassr"
-// Last Change: 20-Oct-2008. Jan 2008
+// Last Change: 01-Sep-2010. Jan 2008
 // License: Public domain
 // Maintainer: mattn <mattn.jp@gmail.com> - http://mattn.kaoriya.net/

poppen

--- i18n.rb.orig	2010-09-10 10:06:32.000000000 +0900
+++ i18n.rb	2010-09-10 10:07:16.000000000 +0900
@@ -14,35 +14,35 @@
 
   # Gets the supported locales.
   def supported_locales 
-    Locale.app_language_tags
+    ::Locale.app_language_tags
   end