最近，我尝试使用urllib2和BeautifulSoup来提取一些网页的源码，但是由于错误代码的输出而失败。脚本如下所示(在Python IDLE中运行)
import urllib2
from bs4 import BeautifulSoup
web = "http://www.qq.com"
page = urllib2.urlopen(web)
soup = BeautifulSoup(page, "html.parser")
print soup.prettify()
我发现"“的字符集是gb2312，所以在上面的脚本中添加了如下内容：
imp
浏览 2提问于2015-11-26得票数 0
1回答
请求是https+域名，负载跳转 http+ip,,苹果手机最新版本14，服务器只拿到了referrer 源域名，不是引用地址，
例如：https//:a.com/1.html 请求 http:127.0.0.1/1.html,服务器后段取到的值是https//:a.com/
浏览 394提问于2020-12-14
2回答
perl中的以下代码段之间有什么技术差异吗？他们的行为似乎是一样的
my $str = "A cat is red";
if($str =~ /cat/) {
print "Matches\n";
}
vs
my $str = "A cat is red";
if($str =~ m/cat/) {
print "Matches\n";
}
这段代码的不同之处在于第3行中的"m“，为什么有人会省略或不省略"m”呢？
浏览 7提问于2013-12-22得票数 13
回答已采纳
我正在寻找一个函数，如果存在shell命令，则返回1，否则返回0，否则我知道存在返回命令路径的which命令。它还在手册中说，这个命令应该有一个返回值，但尝试设置a = `which some_command.bin`不会将任何值放入a。我知道我总是可以使用which然后解析结果，我只是在寻找一种更干净的解决方案
浏览 1提问于2011-02-01得票数 3
回答已采纳
在perl脚本中，我正在将HTML写到屏幕上。我有一些单选按钮，显示和隐藏的div是基于哪个单选按钮被点击。当前@output正在将数组全部输出到div中的一行上。
如何将数组中的每个元素在新行上输出到下面的div。
@output = split (/\n/, $TESTFILE);
@output2 = split (/\n/, $TESTFILE2);
print "\$(document).ready(function() {\n";
print " \$(\"div.desc\").hide();\n";
print "
浏览 1提问于2016-03-11得票数 0
回答已采纳
3回答
我有一个要导入MySQL数据库的数据文本文件。不幸的是，有些行包含引号，这导致我的SQL查询变得混乱。我希望去掉任何带有引号的字段，或者至少在我的查询中忽略它们。
我发现了一些可能有用的东西，但是由于这是通过Perl脚本运行的，所以在“转义”引号时遇到了问题。我真的不知道怎么做，也想不出来。我只想搜索我的表，删除它可能找到的任何引号(")，或者用单引号或空格或任何真正的东西来替换它。
my $myreplacequery = "REPLACE(s.Title, '"','')";
$sth = $dbh->prepare($
浏览 0提问于2012-11-01得票数 0
我对preg_replace和$1 +变量有一个问题，在$1和变量之间没有空格。
我有这样的代码：
$replace_id = 5000;
$search = 1000;
$movies = '[1000,2000,2300,1234]';
$new_movies = preg_replace('#(,|\[)'.$search.'(,|\])#Uis','$1'.$replace_id.'$2',$movies);
echo $new_movies;
产出：
000,2000,2300,1234]
但是我想要这个
浏览 4提问于2013-09-08得票数 3
回答已采纳
在PHP中，在()中使用\1或$1作为$replacement有什么区别？
它们都工作，而且似乎做了完全相同的事情，但我想我在这里遗漏了一些东西。
浏览 0提问于2009-09-13得票数 1
回答已采纳
命令行参数是否可以保存到文件中，然后将文件传递给perl以解析选项？类似于一些Microsoft工具的响应文件(以@作为名称的前缀)。
浏览 1提问于2015-09-20得票数 0
回答已采纳
2回答
Situation
我想使用preg_replace()在每个[aeiou]之后添加一个数字'8'。
示例
从…
abcdefghij
至
a8bcde8fghi8j
问题
我应该如何编写替换字符串？
// input string
$in = 'abcdefghij';
// this obviously won't work ----------↓
$out = preg_replace( '/([aeiou])/', '\18', $in);
这是，只是一个例子，，所以建议str_replace()是，而不是，
浏览 3提问于2013-08-02得票数 10
回答已采纳
1回答
我正在尝试创建一个脚本，它将：
启动gdb
设置替代路径
附加到进程PID上
设置一些断点
浏览完interent之后，我创建了一个名为“gdbscript”的脚本，该脚本包含：
set substitue-path <from> <to>
show substitute-path
attach $1
我把这个脚本称为：
$ gdb -x gdbscript --args 4269
这不管用。任何关于如何在gdb中使用脚本并传递参数的ideea吗？
谢谢。
浏览 0提问于2013-11-19得票数 0
我试图替换一个版本字符串，但它总是消耗我的拳头--版本字符串的字母，直到我在中间留出一个空格：Version:$1 $new_version
但我不想这样做，我想了解这里发生了什么。
文件内容：
Version: 4.4.4
我代码的相关部分：
$new_version = 6.6.6
$new_main_file_content = preg_replace(
'/Version:([ ]*)[0-9\.]+/',
"Version:$1$new_version",
file_get_contents($main_file)
浏览 1提问于2014-04-26得票数 2
回答已采纳
我不知道Perl。我正在尝试阅读由其他人编写的Perl脚本。
脚本使用GetOpt::Long模块。在代码中的多个点，我看到了对以字符串形式构造的其他Perl脚本的调用，如下所示：
@calls = (
"getopt_AddName.pl -in $first_name -in $last_name -out $full_name",
"getopt_Sort.pl -in $first_name -out $sorted_name -col 1",
"getopt_Join.pl -in $sorted_name -out $all_names_ou
浏览 1提问于2021-06-23得票数 0
1回答
我需要将大字符串与mysqlDB中列的字段匹配。就像这样
%ERROR-kkl_ub{}：(来自YAMios)：目标(名称= sdasdays.s0sda.rindasdth.sbo98.sbssdao_sad)未注册。
它包含了许多特殊的字符，我不能尝试为每个字符做一个\，因为将有数百个独特的签名。
需要帮助..。
浏览 2提问于2012-02-16得票数 1
回答已采纳
假设我想转换
var.at(i*w+j) = something;
转到
var[i*w+j] = something;
输入vim的正确命令是什么？我试图
:%s/\.at\(.*\)/[\1]/g
这会导致
var[(i*w+j) = something;]
可以工作，但如果可以删除括号，情况会更好。
编辑:显示正确的结果尝试
浏览 1提问于2016-04-22得票数 1
回答已采纳
我有一个有100k行的txt文件。如果我想知道24356行的数据是什么样子的，我如何在命令行中做到这一点？
浏览 11提问于2012-03-12得票数 1
回答已采纳
我想从perl one行中打印昨天的日期，当我在命令提示符下运行此命令时，我得到以下错误。
perl -e 'use POSIX qw(strftime);
$now_string = strftime "%Y%m%d", localtime(time()-86400);
print $now_string';
错误：
Can't find string terminator "'" anywhere before EOF at -e line 1.
我的perl版本v5.14.2
浏览 0提问于2013-04-01得票数 1
回答已采纳
1回答
我尝试使用Perl脚本执行脚本从数据库获取数据，但是查询包含一个特殊字符，因为我是从Oracle中的v$process获取信息的。 我使用以下几行代码： my $dbh = DBI->connect ( "dbi:Oracle:$TNS", $USER, $PASS ) || die ($DBI::errstr . "\n");
$dbh->do("ALTER SESSION SET NLS_DATE_FORMAT = 'yyyy-mm-dd hh24:mi:ss'");
$dbh->{A
浏览 14提问于2021-07-24得票数 2
回答已采纳
我正在尝试使用Google表单上的正则表达式验证来阻止某些特定的单词(坏单词)，在大写/小写的任何序列中。与其他类型的词:阻止-> 木材，Wood .和河，河流，River .等。我使用的是-> ([Ww][oO][Oo][Dd]|[Rr][Ii][Vv][Ee][Rr]) (我制作了一个python脚本做每个字母的“复制”并创建表达式，所以不使用x{0,y}是最容易的，至少现在我的单词列表中没有dupli字母)
效果很好。正如我所知，(?i:wood)|(?i:river)或(?i)wood|(?i)river在那里不起作用，这是我能做的更好的方法。
主要的问题是，列表中的一个特
浏览 3提问于2017-02-15得票数 0
回答已采纳
2回答
我决定为我的Qt应用程序测试sqlite db。
我已经使用适当的语句(create table等)创建了sqlite db文件，并插入了一些数据行。我的问题是，当我执行select语句时，我没有得到任何记录。
这是我使用的代码：
qq.sprintf("SELECT * from descriptors WHERE descriptors.id=%d ",idx);
query.exec(qq);
if( query.isSelect() ){
while (query.next()){
int fff = query.value(0).toInt();
}
浏览 0提问于2011-07-06得票数 1
回答已采纳
我试图在$1之后加上"00“，但preg_replace替换中没有空格。
我的代码：
$count = null;
$returnValue = preg_replace('/de(.*)y/i', '$1 00', 'delipsumy', -1, $count);
我想要一个类似于'$1'.'00‘这样的东西来代替它，它的输出应该是：
lipsum00 (没有任何空间)
我已经试过了像‘$1’，‘00’和‘100美元’之类的东西，但是没有用
有什么建议吗？
浏览 12提问于2013-04-05得票数 1
回答已采纳
1回答
我必须做一个rle算法(转义字符)，它能够对每个文件进行编码和解码。我做了第一部分(编码)，现在已经开始解码部分，我可以看到一些问题。示例：
如果我有一个文件，并且里面有：AAAAABBBBBBCCCCCDDD
我确实给出了如下输出的编码函数：QA5QB6QC5DDD
但是你必须认为我必须处理真正的文件，所以里面不仅有字母，还有数字和符号。
所以，在编码部分之后，如果编码文件中有类似于QA55的内容，我必须做什么
输出必须是AAAAA5或55 A
另一个例子，如果我必须阅读QA5
哪一个是最终输出？AAAAA还是QA5？
我的意思是，我不知道我怎么能认出我正在读的这封信是编码的还是非编码的。
浏览 5提问于2013-11-27得票数 0
回答已采纳
我偶然发现了一个令人敬畏的帝国：
s/((?:\\[a-zA-Z\\])+)/qq[qq[$1]]/eeg
它有魔力，但它太模糊了，我无法理解它。它工作得很好：
echo 'a\tb\nc\r\n' | perl -lpe 's/((?:\\[a-zA-Z\\])+)/qq[qq[$1]]/eeg'
a b
c
让我们用cat -A看一看：
echo 'a\tb\nc\r\n' | perl -lpe 's/((?:\\[a-zA-Z\\])+)/qq[qq[$1]]/eeg' | cat -A
a^Ib$
c^M$
$
我会
浏览 4提问于2014-07-04得票数 0
回答已采纳
我有以下文本文件：
A(B C)
D(E F)
A(G
H
I)
我想把它转换成：
modifiedA{B C}
D(E F)
modifiedA{G
H
I}
通常，我会使用s/A(/modifiedA\{/g和s/)/}/g。
因为我不想接触D(E F)，这是行不通的。
谢谢你的评论/帮助。
更新：
答案不应该需要人工干预，应该是可伸缩的。因此，使用c而不是g不是一种选择。还注意到A()可以跨多条线传播。
浏览 1提问于2020-05-23得票数 0
回答已采纳
4回答
我在PHP中使用regex。这是我的剧本：
$s="2044 blablabla 2033 blablabla 2088";
echo preg_replace("/(20)\d\d/","$1 14",$s);
结果是这样的：
20 14 blablabla 20 14 blablabla 20 14
我希望删除20和14之间的空间，以获得结果2014。我该怎么做？
浏览 0提问于2014-09-12得票数 8
回答已采纳
2回答
我正在尝试使用Regex来验证我正在处理的项目中的用户输入。我目前使用的模式是
^[1-9][0-3]?|[Q|q]$ //Range of 1-13 or Q|q (Can't include 0)
根据Regex101.com，它显示用户输入(比如15 )是不匹配的，但是当我运行这个项目时，它的作用就好像它是匹配的。如何将这个正则表达式限制为只接受1-13和字符q或q的数字范围？对于上下文，只是在事件中，我的while循环是错误的，这也是代码。
while (!match.Success)
{
// Ommited Console.Writ
浏览 1提问于2018-09-17得票数 1
回答已采纳
2回答
我正在尝试将文本文件(.txt)转换为加密的PDF文件，但出现错误：
TypeError: a bytes-like object is required, not 'str'
文本文件(.txt)内部是中文文本，我使用的代码如下：
import PyPDF2
from fpdf import FPDF
with open('Chinese.txt') as f:
QQ = f.read()
QQ = QQ.encode('utf-8')
pdf = FPDF()
pdf.add_page()
pdf.set_xy(0,
浏览 9提问于2018-08-16得票数 0
回答已采纳
假设我有一个字符串"QQxaxbxcQQ"，我想捕获所有x组，后面跟任何字符。我也只想在QQ之间搜索(字符串中可能包含其他内容)。我认为这样做是可行的：
var matches = str.match(/QQ(x\w)+QQ/)
然而，这似乎只返回给我最后一个匹配(xc)。你能给我指出正确的方向吗？
编辑:我问题的第一个版本过于简单了。向最初的响应者道歉。经过编辑使它更贴近我的实际问题。
浏览 4提问于2012-12-01得票数 0
我试图用另一个URL替换href属性的内容
所以我用这个脚本
$html = 'data-content="111"';
$var_2 = "222";
$html = preg_replace('/(["\'])111\1/i',"$1$var_2$1",$html);
echo $html
输出是
data-content=22"
我所期待的
data-content="222"
问题是编译器查找匹配的$12，因为$var_2从数字"2“开始
我试着像这样编辑
浏览 7提问于2022-09-24得票数 1
回答已采纳
我的任务是(尝试)在一个大型代码库中搜索和替换一个单词后缀，只有当它出现在注释中时。所有的注释都是/*或//类型的，但它们肯定会包含大多数可以想象到的边缘情况。
所以我想改变这一点：
/* blah blah something__suffix blah */
要这样做：
/* blah blah something blah */
但我也想改变这一点：
// blah blah something__suffix blah
要这样做：
// blah blah something blah
还有这个：
/*
* blah blah something__suffix blah
*/
浏览 4提问于2012-06-15得票数 2
回答已采纳
2回答
我正在迭代地将数据添加到我的neo4j数据库中，但是我被如何覆盖或更新现有数据以及检查数据是否已经存在于其中的问题所困扰。
基本上，我有一组带有相应id的电影，例如：
[
{id: 'gameofthrones', genre: 'fantasy', release: '2017'},
{id: 'inception', genre: 'scifi', release: '2010'},
...
]
我可以像下面这样添加电影：
CREATE
(m1:Movie {id: 'ga
浏览 37提问于2017-03-13得票数 6
回答已采纳
3回答
我想这个问题已经被php问过了，现在我也在问perl这个问题。我有两个数组。我正在使用它来查询我的数据库。现在碰巧的是，这些术语不仅仅是一个单词，所以它可能会有空格。
我声明了两个变量，比如$foo和$bar。我有两个for循环，它们将文件1中的每个术语组合到文件2中的每个术语，并查询数据库。每一次，每一项都进入变量。数据库是以文本为索引的。我正在使用DBI模块。我的查询是这样的：
my $query_handle = $connect->prepare("SELECT value FROM value_table WHERE
MATCH(column_text_indexed)
浏览 0提问于2011-12-13得票数 2
回答已采纳
由于历史原因，我们有一个工作中的表，它在文本字段中有一个整数值，该值对应于另一个表中的ID。示例：
CREATE TABLE things (
id INTEGER,
name VARCHAR,
thingy VARCHAR
);
CREATE TABLE other_things (
id INTEGER,
name VARCHAR,
);
因此，一个“事物”有一个“另一个东西”，但与其被合理地设置，联接字段是一个varchar，并被称为"thingy“。
因此，在Postgres中，我可以这样做来加入两个表：
SEL
浏览 5提问于2013-09-19得票数 7
回答已采纳
XML文件如下所示：
<?xml version="1.0"?>
<application name="pos">
<artifact id="123" type="war" cycle="Release7-Sprint1">
<jira/>
<jenkins/>
<deployment/>
<scm>
<transaction id="1234" user="">
<f
浏览 1提问于2014-02-19得票数 1
回答已采纳
我有几个值要传递到过滤器中，并从中获取URL。
在我的模板中，我有：
{% if names %}
{% for name in names %}
<a href='{{name|slugify|add_args:"custid=name.id, sortid=2"}}'>{{name}}</a>
{%if not forloop.last %} | {% endif %}
{% endfor %}
{% endif %}
在我的模板标签中，我有：
@register.filter
def add_args(val
浏览 2提问于2009-05-22得票数 2
回答已采纳
在与您的示例紧密相关的java服务器堆栈上使用Fineuploader 5.0.3。
所有的上传在Firefox，Chrome，IE 10和更高版本中都能正常工作。这似乎只在IE 9或更低版本中发生。我在不同环境中的多台机器上进行了测试，结果相同。
以下是IE9上会话的调试日志：
[Fine Uploader 5.0.3] Received 1 files or inputs.
[Fine Uploader 5.0.3] Sending simple upload request for 0
[Fine Uploader 5.0.3] Sending upload request for 0
浏览 4提问于2014-08-26得票数 2
3回答
我有windows bat文件，(使用activeperl)
@echo off
perl -p -e 's/DIV\[/div\[/g' orginal.txt > output.txt
perl -p -e 'rename("output.txt", "orginal.txt")';
...
运行一个.bat文件，我就是不能让它正常运行。
Can't open ;: No such file or directory, <> line 12248.
Can't find string term
浏览 1提问于2011-05-04得票数 1
我有3个带有相同类的div。
<div id="qq1" class="cl">sentence</div>
<div id="qq2" class="cl">sentence</div>
<div id="qq3" class="cl">sentence</div>
嗯，我想知道如何编写正确的代码，以便使用一个函数为3个div(调用cl类)输入鼠标调用，并为change css.for ex返回正确的id：
<scrip
浏览 5提问于2012-01-14得票数 1
回答已采纳
找到这个正则表达式：
insert " " every 10 characters:
$text = preg_replace("|(.{10})|u", "\${1}"." ", $text);
你能解释一下\${1}是什么意思吗？为什么使用\？花括号是什么意思？
浏览 1提问于2010-03-23得票数 0
回答已采纳
for (( int i="$4"; i<"$5"; i++ ))
do
awk "NR==i{print}" $1
done
我希望awk打印出$4和$5之间的记录(这将是一个范围，即4-9 )
找不到为什么我会得到这个错误？
Syntax error in expression ( error token is "i=2" )
浏览 0提问于2011-04-18得票数 0
回答已采纳
我想换掉
#{account_nbr}
使用
{{account_nbr}}
在find中，我尝试了以下内容：
\#\{()\w+\1\}
在替换中，是这样的：
{{\$1}}
find似乎可以工作，但我无法正确获取反向引用。
怎么了？
浏览 2提问于2015-04-15得票数 27
回答已采纳
我有一串有效的XML (包含XML标记、属性、注释、空格等)。它包含表单的特殊标记：
%(*)
例如，%(testLibDir)或%(ivySettingsFile)等。
我正在尝试用${*}替换所有的${*}实例。因此，例如，如果XML中存在%(testLibDir) (不管发生了多少次)，那么我希望将它转换为${testLibDir}，等等。
到目前为止，我最大的努力是：
static void main(String[] args) {
// In reality the XML string will be generated dynamically at runtim
浏览 1提问于2016-08-04得票数 1
回答已采纳
我遇到了一个很好的一行程序，用于搜索文本并打印出具有给定数量的尾随行和跟随行的结果。我正试着用这个来创建一个脚本。到目前为止，我得到的是：
# *********************************************************
# This uses nawk to list lines coming prior to and after
# the given search string.
# Format: xgrep <string> <file> <before> <after>
# ***********
浏览 2提问于2009-04-23得票数 2
回答已采纳
我正在尝试查找和替换与此匹配的任何内容：
toastr.success((.*));
与此相匹配：
toastr.success('The user has been created.');
到目前为止还不错，现在我想替换除文本以外的所有内容。所以我希望最终的结果是：
ngNotify('The user has been created.', { type: 'success' });
我试过这样做：
ngNotify((.*), { type: 'success' });
现在我意识到这可能是不支持的，所以我只想知道在我开始手
浏览 4提问于2017-07-13得票数 1
回答已采纳
我有一个XPath查询，它需要匹配span属性中的一些文本，如下所示：
my $perl_query = qq(span[text\(\)='It's a problem']);
$sel->click_ok($perl_query);
如果文本没有撇号，就没有问题。
我尝试了下面的方法，而不是“这是个问题”：
'It\'s a problem'
'It&apos\;s a problem'
'It\${apos}s a problem' #some thread on Stackoverflow
浏览 0提问于2010-06-27得票数 11
我需要插入放在双引号中的字符串变量的值。我使用的代码如下:-
$username="abc";
$password="123";
my $post_data = '{ "auth": {"tenantName":"admin", "passwordCredentials": {"username":"$username","password":"$password"} }}';
print $post_data;
它显示
浏览 0提问于2014-08-19得票数 2
回答已采纳
我正在尝试捕捉1到2条信息。当使用regexr时，它显示我的表达式正在正常工作，并按应有的方式捕获，但在运行它时，它只从单个字符串(与regexr中相同的数据上)捕获，并为其余的字符串返回null。
我已经尝试构建表达式
当切换到JS口味时，它显示捕获组不是通过颜色覆盖工作，而是显示它们在侧窗格中正确工作。即使是最简单的捕获组似乎也不起作用。
我遗漏了什么？
投入如下：
<@U0BUPU9QQ> 49
50
<@U0BUPU9QQ>
<@U0BUPU9QQ> noget 49 noget andet tekst 5 40
<@U0BUPU9QQ>
浏览 3提问于2015-10-20得票数 3
回答已采纳
我真的很感谢你在我最后一个问题上的帮助。这是相关的，但我不想把这个问题隐藏在另一个..我在占位符中使用"DATE_ADD(NOW()，INTERVAL $interval)“时遇到了问题。在我使用占位符之前，这一行运行得很好，但返回时是空的。
$store = qq(INSERT INTO main (creator_name,relationship,time) VALUES(?,?,?) );
my $sth = $dbh->prepare($store);
$sth->execute($data{creatorname},$data{relationsh
浏览 2提问于2013-11-27得票数 1
云服务器
ICP备案
对象存储
腾讯会议
实时音视频
腾讯云开发者
