#remove the utf-8  BOM for Ant
sub remove_bom {
	#open( my $in, "+<", "src/com/umpay/wap20/mobileProxy/MobileProxy.java" );
	foreach my $filename (@_) {
		print $filename,"\n";
		open( my $in, "+<", $filename );
		@lines = <$in>;
		$line1 = $lines[0];
		$t_chk1 = substr( $line1, 0, 1 );    #0xef -> 239
		$t_chk2 = substr( $line1, 1, 1 );    #0xbb -> 187
		$t_chk3 = substr( $line1, 2, 1 );    #0xbf ->191
		if ( ord($t_chk1) == 239 && ord($t_chk2) == 187 && ord($t_chk3) == 191 )
		{
			$line1 = substr( $line1, 3 );
			seek( $in, 0, 0 );
			print $in $line1;
		}
		close $in;
	}
}
&remove_bom("src/com/umpay/wap20/mobileProxy/MobileProxy.java"
,"src/com/umpay/wap20/security/GeneralKeyPairs.java"
,"src/com/umpay/wap20/security/RSAUtil.java"
,"src/com/umpay/wap/pages/WML.java");

my $animal = "camel";
    my $answer = 42;
    print $animal;
    print "The animal is $animal\n";
    print "The square of $answer is ", $answer * $answer, "\n";

$_="test";
print;

    my @animals = ("camel", "llama", "owl");
    my @numbers = (23, 42, 69);
    my @mixed   = ("camel", 42, 1.23);
 
    print $animals[0];              # prints "camel"
    print $animals[1];              # prints "llama"
  $#array 为最后一个数组元素的下标。例如：
    print $mixed[$#mixed];       # last element, prints 1.23

if (@animals < 5) { ... }#这一句可以判断@animals中元素的个数。
print @animals;#这一句会打印出@animals中的所有元素。

  @animals[0,1];                  # gives ("camel", "llama");
    @animals[0..2];                 # gives ("camel", "llama", "owl");
    @animals[1..$#animals];         # gives all except the first element

    my @sorted    = sort @animals;
    my @backwards = reverse @numbers;

    my %fruit_color = ("apple", "red", "banana", "yellow");
You can use whitespace and the => operator to lay them out more nicely:
    my %fruit_color = (
        apple  => "red",
        banana => "yellow",
    );
#To get at hash elements:
    $fruit_color{"apple"};           # gives "red"
#You can get at lists of keys and values with keys() and values().
my @fruits = keys %fruit_colors;
my @colors = values %fruit_colors;

Print $fruit_color{"apple"};           # gives "red"
my @fruits = keys %fruit_colors;

    my $var = "value";
    $var = "value";

    my $x = "foo";
    my $some_condition = 1;
    if ($some_condition) {
        my $y = "bar";
        print $x;           # prints "foo"
        print $y;           # prints "bar"
    }
    print $x;               # prints "foo"
    print $y;               # prints nothing; $y has fallen out of scope

If与unless
    if ( condition ) {
        ...
    } elsif ( other condition ) {
        ...
    } else {
        ...
    }
unless:
    unless ( condition ) {
        ...
    }

print "Yow!" if $zippy;
print "We have no bananas" unless $bananas;

    while ( condition ) {
        ...
    }
    until ( condition ) {
        ...
    }
    print "LA LA LA\n" while 1;          # loops forever

for ($i = 0; $i <= $max; $i++) {
        ...
    }

#Hash：
my %fruit_color=("apple"=>"red","banana"=>"yellow");
foreach my $key(keys %fruit_color){
	print "The value of $key is $fruit_color{$key}","\n";
}
#Array:
my @fruit_arr=("apple","banana","capp","del");
foreach (@fruit_arr){
	print $_,"\n";
}
 
foreach my $i(@fruit_arr){
	print $i,"\n";
}
#还可以写到一行，类似于ruby的语法：
print $_,"\n" foreach (@fruit_arr);
#还可以使用范围：
#比如：
print $list[$_] foreach 0 .. $max;

my $a="";#如果是字符串类型的变量，””等同于false，其他是true
if($a){
print "true";
}else{
print "false";
}
my $a=0;#如果是数字类型的变量，0等同于false，其他是true
if($a){
print "true";
}else{
print "false";
}

@SipServlet
public class MyServlet extends SipServlet{
…
}

@SipApplication(name=”MySipApp”)
Package com.example.sip;

@SipApplication(name=”MySipApp”)
Package com.example.sip;
 public class MySipApp{
	@SipApplicationKey
	public static String sessionKey(SipServletRequest request){
		Return hash(request.getRequestURI()+getDomain(request.getForm()));
       }
}

//通过注释来调用
@Resource
SipFactory sf;
//通过查找的方式
SipFactory sf=(SipFactory)getServletContext().getAttribute(“javax.servlet.sip.SipFactory”);

@Resource
SipSessionUtil sessionUtil;
//或者
SipSessionUtil sessionUtil=(SipSessionUtil)getServletContext().getAttribute(“javax.servlet.sip.SipSessionUtil”);

@SipListener
Public class MyListener implements SipServletListener{
…..
}

package com.ohacker.sip.proxy;
import java.io.IOException;
import java.util.ArrayList;
import javax.servlet.ServletException;
import javax.servlet.sip.*;
import javax.servlet.sip.Address;
/**
 *
 * @author O!Hacker
 */
@javax.servlet.sip.annotation.SipServlet
public class RegistratorServlet extends javax.servlet.sip.SipServlet {
   public static ArrayList<Address> CLIENT_LIST=new ArrayList<Address>();
 
    @Override
    protected void doInvite(SipServletRequest req) throws ServletException, IOException {
        System.err.println("doInvite action: "+ req.getCallId());
        Proxy proxy=req.getProxy();
        System.err.println(req.getTo().getURI().toString());
        proxy.proxyTo(req.getTo().getURI());
    }
 
    @Override
    protected void doRegister(SipServletRequest req) throws ServletException, IOException {
        System.err.println("doRegister action: "+ req.getCallId());
        System.err.println("doRegister action: "+ req.getRequestURI());
        SipServletResponse resp=null;
        Address address=req.getTo();
        if(!RegistratorServlet.CLIENT_LIST.contains(address)){
            CLIENT_LIST.add(address);
        }
        System.err.println(CLIENT_LIST.size());
        resp=req.createResponse(SipServletResponse.SC_OK);
        resp.send();
    }
}

<fileset id=”source.fileset” dir=”src” includes=”**/*.java”/>

<copy todir=”backup”>
	<fileset refid=”source.fileset”/>
</copy>

<javac destdir="${build.classes.dir}" debug="true" verbose="true" srcdir="src">
			<classpath refid="compile.classpath"/>
</javac>

<javac destdir="${build.classes.dir}" debug="true" verbose="true">
	<classpath refid="compile.classpath"/>
	<src path=”src”/>
</javac>

       <path id="src.dir">
		<pathelement path="src:conf"/>
	</path>
	<target name="mkdir">
		<mkdir dir="${build.classes.dir}"/>
	</target>
	<target name="compile" depends="mkdir">
		<javac destdir="${build.classes.dir}">
			<classpath refid="compile.classpath"/>
			<src refid="src.dir"/>
		</javac>
	</target>

<javac destdir="${build.classes.dir}">
			<classpath refid="compile.classpath"/>
			<src refid="src.dir"/>
			<src path=”test”/>
		</javac>

<javac srcdir=”src” destdir=”build/classes”>
	<include name=”org/mama/**/*.java”/>
	<exclude name=”org/mama/papa/*.java”/>
</javac>

<?xml version="1.0"?>
<project name="java_project" default="archive">
	<property file="build.properties"/>
 
	<path id="compile.classpath">
		<pathelement location="lib/*.jar"/>
	</path>
	<path id="src.dir">
		<pathelement path="src/java"/>
		<pathelement path="src/conf"/>
	</path>
	<target name="init">
		<mkdir dir="${build.classes.dir}"/>
		<mkdir dir="dist"/>
	</target>
	<target name="compile" depends="init">
 
		<javac destdir="${build.classes.dir}">
			<classpath refid="compile.classpath"/>
			<src refid="src.dir"/>
		</javac>
	</target>
	<target name="archive" depends="compile">
		<jar destfile="dist/${project.name}.jar" basedir="build/classes"/>
	</target>
	<target name="clear" depends="init">
		<delete dir="build"/>
		<delete dir="dist"/>
	</target>
</project>

>java -Xmx256m -jar filename.jar

>cd sailfin
>ant -f setup.xml

asadmin start-domain domain1