#!/usr/bin/perl #use strict; use feature 'say'; use Net::SSH::Perl; use Net::SCP::Expect; …
#!/usr/bin/perl -w # DES algorithm - reference to http://orlingrabbe.com/des.htm sub itera…
my %hash; while(<>) { chomp(); if( /("(.+?)")/ ) { $hash{$1} = ""; } } foreach (sort…
#!c:/perl/bin use Win32::OLE; use Win32::OLE::Const 'Microsoft ActiveX Data Objects'; $tab…
#!/usr/bin/perl -w use Win32::OLE; $filename = 'wordFile.doc'; $doc = Win32::OLE->GetOb…
#!/bin/perl use AnyDBM_File; dbmopen(%states, "statedb", 0666) || die; TRY: { print "state…
#!/usr/bin/perl -w use Win32; $username = Win32::LoginName(); print "User name: $username\…
use LWP::Simple; use HTML::LinkExtor; $html = get("http://www.oschina.net"); $link_extor =…
open FASTA,"$ARGV[0]" or die "can not open GFF file,$!"; open GFF,"$ARGV[1]" or die "can n…
#!/usr/bin/env perl6 use v6; my \stdin = $*IN; my Int $count = +stdin.get(); for ^$count {…
while (<>) { next if /##/; chomp; @a=split/\s+/; @b=split/:/,$a[9];#获取0/1,1/1,1/3这样的…
open(FILEHANDLE, "+<hello.asm") or die "can't open : $!\n"; @content= <FILEHANDLE>…