Ubuntu Sverige

Substrata skrev:
Grep är linjebaserat så för att söka efter två ord över en hel fil tror jag nog att du också behöver använda grep två gånger.

grep -P '(:?foo|bar|xap)' fil

dmz skrev:

Substrata skrev:
Grep är linjebaserat så för att söka efter två ord över en hel fil tror jag nog att du också behöver använda grep två gånger.

Nejdå.

Kod: Markera allt

grep -P '(:?foo|bar|xap)' fil

       -P, --perl-regexp
              Interpret PATTERN as a Perl regular expression.  This is  highly
              experimental and grep -P may warn of unimplemented features.

tr -d \\n fil | grep 'for.*bar\|bar.*foo'

Substrata skrev:Är fullt medveten om att dmz kan besvara frågan; men (?: ...) används för att gruppera utan att fånga, så att man inte får back-references ala \1, $1 etc. I övrigt verkar dock "grep -P '(:?foo|bar|xap)'" fungera som "egrep 'foo|bar|xap' fil", alltså disjunktiv matchning; men nu när jag testat det så är det uppenbart att man kan använda det för att hitta filer som innehåller alla önskade ord (konjunktionen). Hela lösningen kräver dock mer jobb.

Konservburk skrev:
Men den metoden blir dock snabbt väldigt komplicerad om antalet ord ökas. Du kanske
har någon bättre idé eller någon magisk perl-regexp på lut?

\cat foofile|perl -e '@c=<>;for(@c){print "\033[31m$_\033[0m" if /foo/ and /bar/;}' 

dmz skrev:Jag skulle gjort något i stil med;

Kod: Markera allt

\cat foofile|perl -e '@c=<>;for(@c){print "\033[31m$_\033[0m" if /foo/ and /bar/;}' 

som då simulerar |grep foo|grep bar

Substrata skrev:men (?: ...) används för att gruppera utan att fånga, så att man inte får back-references ala \1, $1 etc.

Konservburk skrev:

Substrata skrev:men (?: ...) används för att gruppera utan att fånga, så att man inte får back-references ala \1, $1 etc.

Men nu var det ju :? och inte ?: i exemplet. För det är väl inte samma sak, eller?

> \cat readkey.pl -n|perl -e '$/=undef;$_=<>;print $_ if /my/ and /foo/;'       
     1	use strict;
     2	use Term::ReadKey;
     3	
     4	print "Enter char\n";
     5	ReadMode('cbreak');
     6	
     7	while(1) {
     8	  print "> ";
     9	  my $foo = ReadKey(0);
    10	  print "\n";
    11	  printf("%s => %d 0x%x \n", $foo, ord($foo), ord($foo));
    12	  
    13	}

> \cat readkey.pl -n|perl -e '$/=undef;$_=<>;print $_ if /my/ and /bar/;'

dmz skrev:Tänker du på /m?

perlre skrev:/m: Treat string as multiple lines. That is, change "^" and "$" from matching the start or end of the string to matching the start or end of any line anywhere within the string.
/s: Treat string as single line. That is, change "." to match any character whatsoever, even a newline, which normally it would not match.
Used together, as /ms, they let the "." match any character whatsoever, while still allowing "^" and "$" to match, respectively, just after and just before newlines within the string.

Ainigma skrev:Nu är det lite oklart för en oinitierad. Är det olika varianter av konserburks förslag (som fungerade utmärkt), eller är det något utöver det ni försöka åstadkomma nu?

Ainigma skrev:Ok, och om jag nu vill göra ett skript av konsverburks förslag, hur gör jag enklast då?

#!/bin/sh
exec find -maxdepth 1 \
-exec sh -c 'file -i "$0" 2>&-| grep -q application/pdf' {} \; \
-exec sh -c 'pdftotext "$0" - 2>&-| grep -qi analogy' {} \; \
-exec sh -c 'pdftotext "$0" - 2>&-| grep -qi argument' {} \; \
-exec mv {} en_egen_mapp/ \;

chmod +x ~/bin/skriptet.sh

Ainigma skrev:Jag har försökt göra ett sådant där skript nu. Ni får ha överseende med min okunnighet men jag vet inte hur jag nu ska använda det. Är det tänkt att det ska vara tillgänglig via ett högerklick (hur man nu gör det) så att när en mapp innehåller filer jag vill sortera så ska jag högerklicka och så att säga applicera skriptet på mappen, eller hur bör jag använda det? (Har knappt använt skript förut)

så vill du förmodligen lägga till "$@" (med fnuttar och allt) direkt efter find.