aanoaa

import java.util.*;
import java.util.regex.*;

public class CurrencyRegex {
	public static void main(String[] args) {
		for (String arg : args) {
			System.out.println(toCurrency(arg));
		}
	}

aanoaa

#!/usr/bin/env perl
### begin_: file metadata
### <region-file_info>
### main:
###   - name    : XMLPrettyPrint: simple xml pretty print in perl
###     desc    : use perl with XML::Twig library to print indented xml
###     date    : created="Thu 2005-12-01 11:08:15"
###     last    : lastmod="Thu 2005-12-01 11:22:34"
###     lang    : perl
###     tags    : perl xml indent formatted pretty string cfPrettyPrint

aanoaa

   422 src/com/google/zxing/client/android/CameraManager.java
   138 src/com/google/zxing/client/android/HelpActivity.java
   126 src/com/google/zxing/client/android/CaptureActivityHandler.java
    34 src/com/google/zxing/client/android/ViewfinderResultPointCallback.java
    80 src/com/google/zxing/client/android/result/SMSResultHandler.java
    40 src/com/google/zxing/client/android/result/ResultButtonListener.java
    67 src/com/google/zxing/client/android/result/GeoResultHandler.java
    82 src/com/google/zxing/client/android/result/URIResultHandler.java
    69 src/com/google/zxing/client/android/result/EmailAddressResultHandler.java
    92 src/com/google/zxing/client/android/result/ProductResultHandler.java

aanoaa

#!/usr/bin/env perl
use strict;
use warnings;
use Pod::Usage;
use Getopt::Long;
use File::Slurp qw/slurp/;
use MIME::Lite;
use Readonly;

Readonly my $CONTENT_SEPARATOR => <<SEPARATOR;

aanoaa

public final class Distance
{
    public final static int KILOMETERS = 0;
    public final static int STATUTE_MILES = 1;
    public final static int NAUTICAL_MILES = 2;

    public final static double EARTHS_RADIUS[] = {
        6378.1, // Kilometers
        3963.1676, // Statue miles
        3443.89849 // Nautical miles

aanoaa

#Screen Command

• Ctrl + a" list
• Ctrl + a[N] move to 'N'th virtual tty
• Ctrl + an move to next virtual tty
• Ctrl + ap move to previous virtual tty
• Ctrl + aa move to just now before virtual tty
• Ctrl + ac make new virtual tty and move
• Ctrl + ad delete virtual tty

aanoaa

#!perl
use strict;
use warnings;
use Pod::Usage;
use Getopt::Long;
pod2usage(0) unless @ARGV;
my %options;
GetOptions( \%options, "--help" );
pod2usage(0) if $options{help};
my $path = q|git web--browse "C:\Program Files\Git\doc\git\html\git-%s.html"|;

aanoaa

#!/usr/bin/env perl -l
use strict;
use warnings;
#use utf8;
use JSON;
use Pod::Usage;
use HTTP::Request;
use HTTP::Response;
use LWP::UserAgent;
use Data::Dumper qw/Dumper/;

aanoaa

#!/usr/bin/env perl

use 5.010;

use warnings;
use strict;

use autodie;

use File::MMagic;

aanoaa

#   Failed test 'PUTs existing URI and reports success'
#   at t/put_ok.t line 32.
# STDOUT is:
# not ok 1 - Try to PUT goodlinks.html
# 
# not:
# ok 1 - Try to PUT goodlinks.html
# 
# as expected
# STDERR is: