From nobody Mon Nov 15 10:00:26 2021 X-Original-To: questions@mlmmj.nyi.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2610:1c1:1:606c::19:1]) by mlmmj.nyi.freebsd.org (Postfix) with ESMTP id 4A699189676D for ; Mon, 15 Nov 2021 10:01:13 +0000 (UTC) (envelope-from odhiambo@gmail.com) Received: from mail-qk1-x733.google.com (mail-qk1-x733.google.com [IPv6:2607:f8b0:4864:20::733]) (using TLSv1.3 with cipher TLS_AES_128_GCM_SHA256 (128/128 bits) key-exchange X25519 server-signature RSA-PSS (4096 bits) server-digest SHA256 client-signature RSA-PSS (2048 bits) client-digest SHA256) (Client CN "smtp.gmail.com", Issuer "GTS CA 1D4" (verified OK)) by mx1.freebsd.org (Postfix) with ESMTPS id 4Ht4TN45dSz3s07 for ; Mon, 15 Nov 2021 10:01:12 +0000 (UTC) (envelope-from odhiambo@gmail.com) Received: by mail-qk1-x733.google.com with SMTP id t83so13668146qke.8 for ; Mon, 15 Nov 2021 02:01:12 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:from:date:message-id:subject:to; bh=Jb2uf3UrkpSXVptZWLRQDTLQOSL1C+EdtDBOlMtBCmY=; b=Z/IFrT+NkFEKdkrnmdq6tkTiK9EhAE9uvd4mW+UCa9P3zBVskFmGuOfO+QtTuB1w2G 1q2C65Zn8BTQmSG99ya7kitjUN8NWYeMfUvuLgXpx1jSkm2Z+ilLlZGL0jIAtB1K42cH Pb2hJ1M4mAh/7TkoNErnMtzll2IhHAWXHhq6sU4EVWwTth3jc7v4kzu4GESZO1kaIgR/ 3OtXmFMWF4uIcD3mnaD82ZUVMk9t27moI34OOJ+mfL1YrDXpKG/RQhz/sDB3SoSjP4qJ 1eskZBmfJ1xl024gKvILVYGsH4F7e8M6Vs0ifIUdB/ZGs7srWZtMUWk3IC/mgekKdrYW pAFQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=Jb2uf3UrkpSXVptZWLRQDTLQOSL1C+EdtDBOlMtBCmY=; b=aTLHlhXJ5AoWh/ynVhErtwPArVB/tS8KhoGYWmrHMCZs2+sMXkdUVKS+Zw/ceWRHOZ 9InbgW1avbioCCBmvNVb5QhqPteFUm1wiV+7Pr/v/qd91xqrflw3TxgNlWhHHsbcXEaO fjen3I6L9Sf9RVX+c8yfZkqIqMj1nLJRnyxw5RJX/dkbqdvpa+mgs31axKTE1d1ik1X+ CZTRenPbRqMPbuipgzCyUk8U1qzhYKKRqE7w0V6h7NGpCgorxlfhPZMNZ4g+mNrwsU9k huVm6CDarK5LnCA2trEEFQLEVMrpG4KIkiEBbMIUPsFvd2S6L8wcaJpx8oP59vLz0+/J eNow== X-Gm-Message-State: AOAM532xk2PNcCSKPkSCZ0mR+Pwg+Bqzbmg21fxy58koatJgTRyGT1+3 gc1gncjySkvAl2pcQ1ql6M3pU4Y78wIfNXs6Th3UoImc X-Google-Smtp-Source: ABdhPJzXKu6nco4YVbhaDrC9OU8BeivsqLCAT4blSmqG+ZWKTnbG0BsR7vT1wdOIiYFAGTMIM9Ag/eSdYRhRM/Ux7Bg= X-Received: by 2002:a05:620a:1999:: with SMTP id bm25mr29193487qkb.132.1636970465805; Mon, 15 Nov 2021 02:01:05 -0800 (PST) List-Id: User questions List-Archive: https://lists.freebsd.org/archives/freebsd-questions List-Help: List-Post: List-Subscribe: List-Unsubscribe: Sender: owner-freebsd-questions@freebsd.org X-BeenThere: freebsd-questions@freebsd.org MIME-Version: 1.0 From: Odhiambo Washington Date: Mon, 15 Nov 2021 13:00:26 +0300 Message-ID: Subject: Looking for a 3rd eye - perl errors To: questions Content-Type: multipart/alternative; boundary="0000000000001f46ed05d0d0e324" X-Rspamd-Queue-Id: 4Ht4TN45dSz3s07 X-Spamd-Bar: / Authentication-Results: mx1.freebsd.org; dkim=pass header.d=gmail.com header.s=20210112 header.b="Z/IFrT+N"; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (mx1.freebsd.org: domain of odhiambo@gmail.com designates 2607:f8b0:4864:20::733 as permitted sender) smtp.mailfrom=odhiambo@gmail.com X-Spamd-Result: default: False [-0.27 / 15.00]; ARC_NA(0.00)[]; NEURAL_HAM_MEDIUM(-1.00)[-1.000]; R_DKIM_ALLOW(-0.20)[gmail.com:s=20210112]; FROM_HAS_DN(0.00)[]; R_SPF_ALLOW(-0.20)[+ip6:2607:f8b0:4000::/36:c]; FREEMAIL_FROM(0.00)[gmail.com]; MIME_GOOD(-0.10)[multipart/alternative,text/plain]; PREVIOUSLY_DELIVERED(0.00)[questions@freebsd.org]; NEURAL_SPAM_SHORT(1.00)[1.000]; RCPT_COUNT_ONE(0.00)[1]; MID_RHS_MATCH_FROMTLD(0.00)[]; TO_DN_ALL(0.00)[]; DKIM_TRACE(0.00)[gmail.com:+]; DMARC_POLICY_ALLOW(-0.50)[gmail.com,none]; RCVD_IN_DNSWL_NONE(0.00)[2607:f8b0:4864:20::733:from]; TO_MATCH_ENVRCPT_ALL(0.00)[]; NEURAL_SPAM_LONG(0.73)[0.726]; FROM_EQ_ENVFROM(0.00)[]; MIME_TRACE(0.00)[0:+,1:+,2:~]; FREEMAIL_ENVFROM(0.00)[gmail.com]; ASN(0.00)[asn:15169, ipnet:2607:f8b0::/32, country:US]; RCVD_COUNT_TWO(0.00)[2]; RCVD_TLS_ALL(0.00)[]; DWL_DNSWL_NONE(0.00)[gmail.com:dkim] X-ThisMailContainsUnwantedMimeParts: N --0000000000001f46ed05d0d0e324 Content-Type: text/plain; charset="UTF-8" Hi everyone, Looking for a 3rd eye here: In the code below, I am getting these errors: 1. sub mp3_filter($$$$) { my ($contref, $weighted_str, $fields, $headings) = @_; mp3::get_title($$contref, $weighted_str, $fields); mp3::get_author($$contref, $fields); mp3::get_album($$contref, $fields); $$contref =~ s/^\w+:{1,1}?//gm; <= Error: Useless use of greediness modifier '?' in regex; marked by <-- HERE in m/^\w+:{1,1}? <-- HERE 2. sub get_uri ($$) { my ($cfile, $fields) = @_; my ($uri); my (%param); if ($cfile =~ /^(.*)\/d(\d\d\d\d*)([0-1]\d)([0-3])(\d)\.hnf$/) { $param{'year'} = $2; $param{'month'} = $3; $param{'day'} = $4 . $5; $param{'hiday'} = $4; if ($param{'day'} < 11) { $param{'abc'} = "a"; } elsif ($param{'day'} < 21) { $param{'abc'} = "b"; } else { $param{'abc'} = "c"; } if ($hnf::link_templ) { $uri = $hnf::link_templ; } elsif ($hnf::hns_version >= 2) { $uri = '?%year%month%abc#%year%month%day0'; # for hns-2.00 or later } else { $uri = '?%year%month%hiday#%year%month%day0'; # for hns-1.x } $uri =~ s/%%/\34/g; $uri =~ s/%{?([a-z]+)}?/$param{$1}/g; <======Error: Unescaped left brace in regex is passed through in regex; marked by <-- HERE in m/%{ <-- HERE ?([a-z]+)}?/ $uri =~ s/\34/%/g; $uri = $hnf::diary_uri . $uri; $uri =~ s/%7E/~/i; } $fields->{'uri'} = $uri; $fields->{'author'} = $hnf::author; } -- Best regards, Odhiambo WASHINGTON, Nairobi,KE +254 7 3200 0004/+254 7 2274 3223 "Oh, the cruft.", egrep -v '^$|^.*#' :-) --0000000000001f46ed05d0d0e324--