发布时间：2013-03-13 15:41:52

在unix/Linux中有一个强大的命令用来搜索文件中的模式，相信大家都比较熟悉，那就是grep，同样在perl中，grep也被用来进行搜索某个模式。下面我们来看一下grep的一个例子：#! /usr/bin/perluse strict;use warnings;my @array = qw(greyhound bloodhound hello hand);my @hound = grep /hound/,@array;print .........【阅读全文】

发布时间：2013-03-13 15:38:31

使用$hash{$key1}{$key2} = $value;遍历（注意加粗与加下划线的语句）foreach my $key1 (keys %hash){my $hash2 = $hash{$key1};foreach my $key2 (sort{$hash2->{$b}$hash2->{a}} keys %$hash2){print $key1.”\t”.$key2.”\t”.$hash2->{$key2}.”\n”;}}对比单维哈希for.........【阅读全文】

发布时间：2013-03-13 12:34:56

在项目中需要给同一台服务器的web用户配置环境变量执行oracle的sqlldr，把实现的步骤和碰到问题记录一下：（1）把oracle目录下.profile文件对于数据库环境变量的设置拷贝到web用户的.profile文件中；执行命令报错$ sqlldrsh: sqlldr:  not found.查看，发现web用户没有oracle_home目录的执行权限，.........【阅读全文】

发布时间：2013-03-13 11:39:27

ORA-01034: ORACLE not availableORA-27121: unable to determine size of shared memory segmentLinux Error: 13: Permission denied主要是因为oracle安装程序没有给oracle这个可执行程序设置正确的setuid。这样设置一下：$ cd $ORACLE_HOME/bin$ chmod 6751 oracle结果类似这样就行了。$ ls -l $ORAC.........【阅读全文】

发布时间：2013-03-11 11:35:19

飞碟运算符就是对比$a和$b，返回-1、0、1$a$b返回1如:点击(此处)折叠或打开my @array = qw/18 23 62 11 14 6 100/; print join(' ', sort { $a $b } @array), "\n";#这个得到的是6 11 14 18 23 62 100print join(' ', sort { $b .........【阅读全文】