zoukankan
html css js c++ java
openoffice 编译依赖关系履历
演示代码
下载
#
/usr/bin/perl -w
sub
readline
{
print
$_
[
0
]
,
"
\n
"
;
if
(
open
(FILE1
,
"
Qlist.txt
"
))
{
while
(
<
FILE1
>
)
{
if
(
$_
=~/^
$_
[
0
]
/
)
{
s
/
NULL
//
;
s
/\
n
//
;
close
(FILE1);
return
$_
;
}
}
}
close
(FILE1);
return
"
$_[0] :
"
;
}
print
"
Put in one model:
"
;
$putin
=<>
;
$putin
=~
s
/\
n$
//
;
$modellist
=&
readline
(
$putin
);
while
(
$modellist
=~
m
/\
b(
\
w
+
)
\
b(
?!
:
)
/
){
my
$tmp
=&
readline
($
1
);
$modellist
=~
s
/\
b(
\
w
+
)
\
b(
?!
:
)
/
$tmp
/
;
}
if
(
open
(OUTFILE
,
"
>OKlist.txt
"
))
{
print
OUTFILE (
$modellist
);
close
(OUTFILE);
}
Qlist.txt 依赖关系例子
vcl : a b c NULL
a : a1 NULL
b : b1 NULL
c : d NULL
a1 : NULL
b1 : NULL
d : e1 e2 NULL
e1 : NULL
e2 : NULL
oklist.txt 结果
vcl : a : a1 : b : b1 : c : d : e1 : e2 :
查看全文
相关阅读:
Drupal 7.23:函数drupal_alter()注释
请为我们的冷漠付费
使用Drush管理Drupal站点
Getting and installing the PEAR package manager
CKEditor和IMCE构建drupal编辑器
Drupal资源
【转】为drupal初学者准备的12个精品课程
OFBIZ+ECLIPSE
OFBIZ安装
CentOS6.4 利用sendEmail发邮件
原文地址:https://www.cnblogs.com/cpper/p/1572188.html
最新文章
nodejs查询数据库后,获取result结果集并赋值返回
nodejs乱码处理
js replace,正则截取字符串内容
执行了‘“npm install mysql"
Mybatis + Mysql 插入数据时中文乱码问题
我的MYSQL学习心得(九) 索引
MySQL存储引擎--MyISAM与InnoDB区别
app后端设计-- 数据库分表
linux设置ip
eclipse上传显示svn上传者名
热门文章
PostgreSQL 修改列报错:cannot be cast automatically to type integer
postgresql 行转列,列转行后加入到一个整体数据
java中split以"."分割的问题
java Map的遍历
xml中使用foreach遍历对象
postgresql 字符串拼接"||“的使用
postgresql行转列并拼接字符串
Unity3D 中3D刚体组件的力
Unity3D 之3D游戏SD快打 3D游戏基础入门开发全(1)
Drupal 7.23:函数module_invoke_all()注释
Copyright © 2011-2022 走看看