- 主题:perl代码获取歌曲曲目单(原创)
$filename='flims.txt';
open(FILE,$filename) or die;
@names;
$i=0;
while($line = <FILE>){
$names[$i]=$line;
$i++;
}
close(FILE);
#print "$names[5]\n";
#$j=0;
#while($j <= $i){
#print "$names[$j]";
#$j++;
#}
#print "\n";
$j=0;
while($j <= $i){
if ($names[$j]=~/[0-9][0-9]\./){
print "$names[$j]";
}
$j++;
}
print "\n";
--
FROM 124.78.12.*
下面是坛友oicu写的代码，2018年的时候我给过oicu私信过。当时他的代码我只能看懂50%，现在我能看懂95%。这花了不到三年的时间。后来我发现用perl完成上面的功能更方便，晚上闲暇的时间，在手机上测试，顺利通过。
@echo off
::Code by oicu#lsxk.org 2018-10-11, for cmd@Windows
type nul>c.txt
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "delims=" %%a in (b.txt) do (
echo.%%a | findstr /i "Track[0-9]" >NUL && (
set swap=%%a
set swap=!swap:Track=!
rem 因为截取方式不准确，还是使用替换，直到得到2位数字
set swap=!swap:TITLE=!
set swap=!swap:"=!
set swap=!swap: =!
rem 搜索时，在行首搜索数字并带点，比如 01.
FOR /F "tokens=1,2* delims=." %%i in ('type a.txt^| findstr /i "^^!swap!\."') do (
rem 根据实际情况调整缩进的空格
echo. TITLE "%%j">>c.txt
)
) || (
echo.%%a>>c.txt
)
)
ENDLOCAL
goto :eof
【 在 javame 的大作中提到: 】
: $filename='flims.txt';
: open(FILE,$filename) or die;
: @names;
: ...................
--
FROM 124.78.12.*
你这代码对perl的侮辱性极强。
我好几年不写perl了，下面写的有可能有bug，但功能上应该和你的差不多
while(<>)
{
if（/[0-9][0-9]\./）
print;
}
【 在 javame 的大作中提到: 】
: $filename='flims.txt';
: open(FILE,$filename) or die;
: @names;
: ...................
--
修改:leadu FROM 123.115.136.*
FROM 123.115.136.*
日本企业的公司还是用perl的多，现在大家大都用python。
【 在 leadu 的大作中提到: 】
: 你这代码对perl的侮辱性极强。
: 我好几年不写perl了，下面写的有可能有bug，但功能上应该和你的差不多
: while(<>)
: ...................
--
FROM 124.78.12.*
上面的代码我写了一半，我要实现的是
films.txt的文档如下，
一堆简介
曲目
01.不再为你美丽的女孩
02.懂得爱
03.跟夏天说再见
cuelist.txt如下，需要把films.txt的曲目去替换cuelist.txt的TRACK01,02,03
FILE "CDImage.ape" WAVE
TRACK 01 AUDIO
TITLE "TRACK01"
PERFORMER "裘海正"
INDEX 01 00:00:00
TRACK 02 AUDIO
TITLE "懂得爱"
PERFORMER "TRACK02"
INDEX 00 04:00:65
INDEX 01 04:02:25
TRACK 03 AUDIO
TITLE "TRACK03"
PERFORMER "裘海正"
INDEX 00 08:04:47
INDEX 01 08:06:07
【 在 leadu 的大作中提到: 】
: 你这代码对perl的侮辱性极强。
: 我好几年不写perl了，下面写的有可能有bug，但功能上应该和你的差不多
: while(<>)
: ...................
--
FROM 124.78.12.*
你也是牛人啊。。在手机上面测试 bat 代码。
【 在 javame (yimin) 的大作中提到: 】
: 下面是坛友oicu写的代码，2018年的时候我给过oicu私信过。当时他的代码我只能看懂50%，现在我能看懂95%。这花了不到三年的时间。后来我发现用perl完成上面的功能更方便，晚上闲暇的时间，在手机上测试，顺利通过。
: @echo off
: ::Code by oicu#lsxk.org 2018-10-11, for cmd@Windows
: ...................
--
FROM 140.224.34.*
手机测试perl
【 在 hgoldfish 的大作中提到: 】
: 你也是牛人啊。。在手机上面测试 bat 代码。
:
--
FROM 124.78.12.*
print grep {/\d\d\./} <>
【 在 leadu (leadu) 的大作中提到: 】
: 你这代码对perl的侮辱性极强。
: 我好几年不写perl了，下面写的有可能有bug，但功能上应该和你的差不多
: while(<>)
: ...................
--
修改:libgcc FROM 171.83.8.*
FROM 171.83.8.*
现在75%的批处理代码，我自己是可以hold住的，我也是2018年开始慢慢花时间学习的。
还有我js的主题贴里说我机器人的帖子删除一下好吗?
本版的很多老id都知道我是围棋老师，为什么这么多人
抹黑我?
【 在 hgoldfish 的大作中提到: 】
: 你也是牛人啊。。在手机上面测试 bat 代码。
:
--
FROM 124.78.12.*
我不是牛人，既然dos源代码已经开源了，就自然会有人去做到手机运行bat。
我所知道的信息是，手机模拟器可以跑wondows,
可以跑ubuntu，这个已经有人尝试成功了。
手机上跑bat目前我了解的信息是没有的。
【 在 hgoldfish 的大作中提到: 】
: 你也是牛人啊。。在手机上面测试 bat 代码。
:
--
FROM 124.78.12.*