perl

임계값보다 작은 숫자로 가장 긴 일련의 줄을 인쇄하는 방법은 무엇입니까?
perl

임계값보다 작은 숫자로 가장 긴 일련의 줄을 인쇄하는 방법은 무엇입니까?

저는 Perl을 배우고 있지만 이 문제를 해결하는 방법을 모르겠습니다. .txt다음 형식의 파일이 있습니다 . 1 16.3346384 2 11.43483 3 1.19819 4 1.1113829 5 1.0953443 6 1.9458343 7 1.345645 8 1.3847385794 9 1.3534344 10 2.1117454 11 1.17465 12 1.4587485 첫 번째 열에는 줄 번호만 포함되어 있으며 여기서는 관심이 없지만 두 번째 열의 값은 관련 부분입니다. 두 번째 열에 2.00보다 작...

Admin

Emacs(셸)에서 `perldoc`을 사용하는 방법은 무엇입니까?
perl

Emacs(셸)에서 `perldoc`을 사용하는 방법은 무엇입니까?

Emacs로 프로그래밍할 때 맨페이지를 자주 참조하게 됩니다. 내 환경은 SSH를 통한 텍스트 기반 Emacs입니다. man명령(함수)을 사용하여 Emacs에서 "일반" 매뉴얼 페이지를 열 수 있지만 Emacs에서 Perl POD 문서를 사용하는 (man MAN-ARGS)방법을 알고 싶습니다 . ( 함수) 에서 실행할 때 (예: ), 메시지를 받으세요 설명:perldocperldoc -f packshell(shell &optional BUFFER) 경고: 터미널이 완전히 작동하지 않습니다. ...

Admin

콘텐츠 검색 및 바꾸기
perl

콘텐츠 검색 및 바꾸기

PIN A 1 1:3 0:8 0 0:0 PIN B 1 1:0 0 0:0 Z Z:0 PIN C 1 1:3 0:8 0 0:0 Z Z:0 PIN B에는 영향을 주지 않고 PIN A와 PIN C의 내용만 변경하고 싶습니다. 0 0:3 Z 0:3 일반 검색 및 바꾸기 방법을 사용하여 PIN B의 내용에 영향을 주지 않고 바꾸는 방법을 찾을 수 없는 것 같습니다. perl -i -pe 's/0:0/0:3/g;' text perl -i -pe 's/Z:0/Z:3/g;' text 원하는 출력: PIN A ...

Admin

sed 변경 사항 + 해당 perl 구문 보고
perl

sed 변경 사항 + 해당 perl 구문 보고

Linux 및 Perl을 배우는 초보자: (a) 대체 문자열을 검색하고, (b) 파일 이름 패턴을 일치시키고 싶습니다..myfile., (c) 하위 디렉토리에서 재귀적으로 검색하고, (d) 줄 번호, 파일 이름, 원래 줄 및 변경된 줄을 인쇄합니다. sed나는 사용하는 버전 과 구문을 모두 찾고 있습니다 perl. 나는 여기서 출발점을 찾았다질문하지만: 첫째: sed 필수: 패턴 일치 구문 추가.myfile., 재귀적으로 검색하고, 줄 번호를 인쇄하고 제거합니다. w /dev/fd/2-- 무슨 일을 ...

Admin

군집 분석을 위해 PDL 사용 시작 PDL::Stats::Kmeans
perl

군집 분석을 위해 PDL 사용 시작 PDL::Stats::Kmeans

첫 번째 질문은 "펄 데이터 언어가 죽었나요?"입니다. 활발한 토론이나 사용자 Q&A를 찾지 못했습니다. 더 나은 태그를 지정하지 않아서 죄송합니다. 담당자가 없습니다.' 내 문제 영역은 전원 스위칭 이벤트를 분석하고 반응성 및 저항성 부하의 판독값을 다시 연결하여 공장 하드웨어의 특정 항목을 가리키는 것입니다. 그래서 클러스터 분석을 생각하고 PDL로 옮겼습니다. 내가 쓴 Perl 스크립트에서 use PDL::Stats::KMeans; my $sql = "select resistv_chg,r...

Admin

두 번째 패턴에 고유한 두 패턴 사이의 모든 선을 찾으시겠습니까?
perl

두 번째 패턴에 고유한 두 패턴 사이의 모든 선을 찾으시겠습니까?

아래에 나열된 파일이 있다고 생각해 보세요. 정규식 패턴의 각 인스턴스에서 모든 Word A행을 선택해야 합니다.앞으로정규식 패턴 Word D. Word A Word B Word C Word D Word E Word F Word G Word A Word H Word I Word D Word J Word A Word K Word D Word L Word M Word A Word D A와 사이의 줄 수는 다양합니다 D. 때로는 D다음 줄입니다. 이것은 내가 필요한 출력입니다. Word A Word B ...

Admin

Perl의 `kill`은 예상치 못한 `$! == Errno::EINTR`을 사용합니다.
perl

Perl의 `kill`은 예상치 못한 `$! == Errno::EINTR`을 사용합니다.

TCP 연결을 처리하기 위해 하위 프로세스를 포크하는 네트워크 데몬을 작성했습니다. SIGINT기본 프로세스 의 각 하위 프로세스에 대해 하나씩 트리거하여 kill일부 최종 통계를 정리하고 수집합니다. 거의 모든 경우에 잘 작동하며 하위 프로세스가 매우 빠르게 종료됩니다. 그러나 때로는 하위 프로세스가 짧은 시간 초과(예: 5초) 내에 종료를 거부하는 경우도 있습니다. 당시 무슨 일이 있었는지 전혀 모르므로 상황을 진단하기 위해 자세한 출력을 추가했습니다. netcat연결을 열고 프로세스를 일시 중지...

Admin

ARGV[]는 매개변수를 허용하지 않습니다.
perl

ARGV[]는 매개변수를 허용하지 않습니다.

매개변수를 전달하려고 하는 쉘 스크립트가 있는데 스크립트에서 빈 출력이 표시됩니다 date.ARGV[1] 이것은 명령입니다: #!/bin/bash dt=$(date -d "yesterday" '+%m%d%Y') cat /tmp/log.$AUTOSERVE.$dt \ | perl -ne '/STATUS:\s+(\w+).+MACHINE:\s+(\w+.\w+.\w+)$/ && print join( "\t", $1, $2 ). "\n"' \ | grep -E '(SUCCESS|FAILUR...

Admin

TCP 연결을 수락하기 전에 피어 주소를 확인할 수 있습니까?
perl

TCP 연결을 수락하기 전에 피어 주소를 확인할 수 있습니까?

나는 TCP 포트/소켓을 수신하고 연결을 받아들이는 간단한 Perl 서버를 작성했습니다. 이제 나는 알고 싶습니다: 주소 기반 접근 제어를 구현하려는 경우 연결을 수락하기 전에 연결을 요청하는 피어의 주소를 확인할 수 있습니까? 가능하다면 연결을 수락하고 즉시 다시 닫는 대신 연결 요청을 거부할 수 있습니다(희망합니다). ...

Admin

bash + 특정 경로 아래의 폴더가 숫자로 끝나는지 확인하는 방법
perl

bash + 특정 경로 아래의 폴더가 숫자로 끝나는지 확인하는 방법

/var/kafka폴더 아래의 모든 폴더가 숫자로 끝나는 지 확인하고 싶습니다 . 그렇지 않으면 오류가 발생하여 종료됩니다. ls -ltr /var/kafka drwxr-xr-x 399 kafka kafka 28672 Nov 9 13:10 data6 drwxr-xr-x 392 kafka kafka 28672 Nov 9 13:10 data5 drwxr-xr-x 391 kafka kafka 28672 Nov 9 13:10 data1 drwxr-xr-x 405 kafka kafka 28672 Nov...

Admin

이름 바꾸기 - 파일 이름의 [ ] 구분 부분을 파일 이름 끝으로 이동합니다.
perl

이름 바꾸기 - 파일 이름의 [ ] 구분 부분을 파일 이름 끝으로 이동합니다.

나는 cygwin에서 이름 바꾸기 도구의 Perl 구현을 가지고 놀았고 마침내 cpan에서 설치하여 작동하게 만들었습니다. 나는 오랫동안 이 작업을 수행하지 않았기 때문에 정규식 작업에 약간 녹슬었습니다. 기본적으로 양식 폴더의 이름을 바꾸고 싶습니다. [2022-10-10] This is a Test - This is a Test (some stuff) [393933939339] 또는 [2022] This is a Test - This is a Test (some stuff) [3939339393...

Admin

텍스트 파일을 구문 분석하면 숫자 앞과 뒤에 세미콜론이 추가됩니다. 숫자 앞/사이에 다른 모든 단어는 하이픈으로 표시됩니다.
perl

텍스트 파일을 구문 분석하면 숫자 앞과 뒤에 세미콜론이 추가됩니다. 숫자 앞/사이에 다른 모든 단어는 하이픈으로 표시됩니다.

다음 계정이 포함된 텍스트 파일이 있습니다. 입력 샘플 Paid 100 15/02/2022 3000 recd 50 15/02/2022 nelur trip 3050 PAID 80 25/03/2022 Adjusted towards trip 3130 14 PAID 50 26/03/2022 Given to Nate Cash (padma ac) 3180 시작 부분의 숫자를 무시하거나 첫 번째 단어에 연결하고 싶습니다. 그런 다음 첫 번째 단어를 대시/하이픈으로 연결하고 날짜를 입력한 다음 단어를 입력합니다...

Admin

두 번째 필드가 여러 줄에 걸쳐 있는 콜론으로 구분된 파일의 줄의 경우 끝에 있는 새 줄을 바꿉니다.
perl

두 번째 필드가 여러 줄에 걸쳐 있는 콜론으로 구분된 파일의 줄의 경우 끝에 있는 새 줄을 바꿉니다.

서로 다른 콘텐츠 세트가 포함된 여러 파일이 있지만 서로 다른 파일의 여러 줄에 대한 패턴은 동일합니다. 입력 파일 예: cat -n test.txt 1 adjfkhjdhfkjd: dfkjfkdljgklfjgklfjgkfjghk 2 rtueitjrkldngfmdn: kldfjkdjgkdjgkldjgkfjhklfjkkjhkgjhklfk 3 dkljfkdljgkldg: fgdkjgkfdljglkfdjgkldfjgkljkldfjgkljgkflj 4 a12kjsdk...

Admin

Perl에서 줄 끝부터 특정 문자까지 문자를 제거하는 방법
perl

Perl에서 줄 끝부터 특정 문자까지 문자를 제거하는 방법

내 문자열은 다음과 같습니다 $varin="wer.try.iuy.oiu.qert" 문자열 끝부터 "."까지 문자를 제거하고 싶습니다. 만나다. 예상 출력: wer.try.iuy.oiu 이것을 사용해 보았지만 chop()아무것도 substr 작동하지 않습니다. 마지막 문자만 제거됩니다. 도와주세요:) ...

Admin

int는 사용된 Perl 라이브러리의 int가 아닌 것 같습니다.
perl

int는 사용된 Perl 라이브러리의 int가 아닌 것 같습니다.

내 마음 속에 이상한 현상이 일어났다. 아시다시피, 인터넷에 직접 노출되는 메일 서버를 다루는 것은 많은 사람들이 침입하거나 중계 수단으로 사용하려고 하기 때문에 상당히 "즐거운" 일이 될 수 있습니다. 약간의 노력이 필요하기는 하지만 방화벽을 통해 주소나 범위를 수동으로 차단하는 데 아무런 문제가 없었습니다. 나는 전체 프로세스를 자동화하기 위해 Fail2ban을 사용하는 데 그다지 열중하지 않습니다. 오히려 "무슨 일이 일어났는지" 알고 싶습니다. 그래서 iptables와 ip6tables를 사용...

Admin